• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Set Mặc Định định dạng ngày tháng

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • Set Mặc Định định dạng ngày tháng
• Set Mặc Định định dạng ngày tháng

• Set Mặc Định định dạng ngày tháng

  Noname > 30-08-10, 10:02 AM

  Hỏi: Nếu như trong phần mềm của mình định dạng Format cho trường Date là dd/mm/yyyy mà ngày tháng hệ thống là mm/dd/yyyy thì sẽ dẫn đến lẫn lộn ngày tháng khi nhập vào CSDL .Nếu như mình nhập 12/06/2009 thì nó sẽ hiển thị 6/12/2009.
  Vậy có cách nào để khi mình mở phần mềm lên nó sẽ tự kiểm tra ngày hệ thống để trả về định dạng dd/mm/yyyy không ?
  Đừng bảo mình chuyển trong Control Panel nhé ,vì như thế cứ mang pm đi máy nào cũng phải chỉnh lại mất công lắm,mà không pro
  
  Đáp: ( dongnamnb- Danketoan)
  Bạn có thể giải quyết bằng hàm API. Cách làm như sau:
  
  1. Copy đoạn code sau vào 1 module
  
  

  Mã PHP:

  Option Compare Database

    Public Const LOCALE_SSHORTDATE = &H1F
    Public Const WM_SETTINGCHANGE = &H1A
    'same as the old WM_WININICHANGE
    Public Const HWND_BROADCAST = &HFFFF&

    Public Declare Function SetLocaleInfo Lib "kernel32" Alias _
    "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As _
    Long, ByVal lpLCData As String) As Boolean
    Public Declare Function PostMessage Lib "user32" Alias _
    "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long
    Public Declare Function GetSystemDefaultLCID Lib "kernel32" _
    () As Long
    Public Declare Function GetLocaleInfo Lib "kernel32" Alias _
    "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal _
    lpLCData As String, ByVal cchData As Long) As Long

    Sub SetSysDate()
    Dim lLocal As Long
    Dim Length As Long
    Dim dwLCID As Long
    Dim Buf As String * 1024

    On Error GoTo SetSysDate_Error
    lLocal = GetSystemDefaultLCID()
    Length = GetLocaleInfo(lLocal, LOCALE_SSHORTDATE, Buf, Len(Buf))
    If Not Left$(Buf, Length - 1) = "dd/MM/yyyy" Then
    dwLCID = GetSystemDefaultLCID()
    If SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, "dd/MM/yyyy") = False Then
    MsgBox "Khong doi duoc dinh dang ngay he thong.", 64, "Thong bao"
    Exit Sub
    End If
    PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0

    End If


    Exit Sub

    SetSysDate_Error:
    MsgBox "Unexpected Error No. " & Err.Number & _
    " in procedure SetSysDate of Form Main. " _
    & vbCrLf & vbCrLf & Err.Description, 64, "Dish Care Centre"
    End Sub 


  
  Ở sự kiện Form_Load của form startup của bạn, bạn gọi thủ tục SetSysDate như sau:
  
  

  Mã PHP:

  Private Sub Form_Load()

    SetSysDate

    End Sub 


  Như vậy mỗi lần chạy chương trình của bạn thì định dạng ngày hệ thống sẽ tự động chuyển thành dạng dd/mm/yyyy

• RE: Set Mặc Định định dạng ngày tháng

  haquocquan > 05-10-10, 02:06 AM

  Hàm trên chỉ Set được SHORT DATE, Noname điều chỉnh thêm giúp để set được LONG DATE nữa nhé.

• RE: Set Mặc Định định dạng ngày tháng

  hmhieu > 20-12-10, 04:56 PM

  Sao mình làm theo hướng dẫn này, nhưng máy mình chỉ set được theo dạng dd/MM/yy mà không phải dạng dd/MM/yyyy. Có bác nào biết nguyên nhân không, giúp với!!!!

• RE: Set Mặc Định định dạng ngày tháng

  haquocquan > 12-05-11, 01:46 PM

  Nhờ các bạn xem hộ, làm thế nào thiết lập được date với năm cao như hình (mặc định của máy là 1930-2029)
  
  
  

• RE: Set Mặc Định định dạng ngày tháng

  Noname > 12-05-11, 02:01 PM

  (12-05-11, 01:46 PM)haquocquan Đã viết: Nhờ các bạn xem hộ, làm thế nào thiết lập được date với năm cao như hình (mặc định của máy là 1930-2029)
  
  

  
  Thì anh cứ nhập số năm mà mình muốn vào ô đó! Ô mờ kia sẽ tự tăng theo.

• RE: Set Mặc Định định dạng ngày tháng

  haquocquan > 12-05-11, 04:23 PM

  Vấn đề là dùng VBA cơ. (không thích làm thủ công)

• RE: Set Mặc Định định dạng ngày tháng

  Cafe Via He > 12-05-11, 04:32 PM

  Bé Quân toàn thích chơi hàng độc

• RE: Set Mặc Định định dạng ngày tháng

  haquocquan > 12-05-11, 04:49 PM

  Có một bộ phần mềm, đã cung cấp cho bạn bè dùng.
  Mình nhập ngày chỉ có dd/mm/yy. Nhưng nếu nhập năm từ 30 trở lên, máy lại tự hiểu là từ 1930 trở đi (nhưng thực tế là 2030 trở đi cơ).
  Đã cung cấp rồi, muốn nếu họ chạy, tự động set luôn cho máy, chứ nhiều người chỉ biết dùng thôi, không biết gì về hệ thống cả. Khó quá.
  Giúp nhé.

• RE: Set Mặc Định định dạng ngày tháng

  quanghoasla > 12-05-11, 07:49 PM

  việc điều chỉnh này cũng không phức tạp lắm.bạn vừa điều chỉnh định dạng trong relagiolna & language va format trong filed dữ liệu như sau. ở mục general format: dd/mm/yyyy. cách này hiệu quả.

• RE: Set Mặc Định định dạng ngày tháng

  Cafe Via He > 13-05-11, 05:42 PM

  Bé Quân Thân mếm, sau thời gian mài mò, Cafe cũng tìm ra cách chỉnh theo ý muốn rồi.
  
  Giờ chẳng nhớ cách dùng VBA để ghi vào Registry nữa. Bé Quân tự search lại nha
  
  Default của Window lower-limit year là 1930 và upper-limit year là 2029. Nếu gõ 1/12/30 thì mặc định nó là 1/12/1930 chứ k phải là 1/12/2030. Theo ý bé là chỉnh số upper-limit year lên con số tuỳ ý và hơn 2029.
  
  Tạo key trong Registry như sau:
  
  HKEY_CURRENT_USER\Control Panel\International
  
  Add key:Calendars
  
  --->> HKEY_CURRENT_USER\Control Panel\International\Calendars
  
  add key : TwoDigitYearMax
  
  --->> HKEY_CURRENT_USER\Control Panel\International\Calendars\TwoDigitYearMax
  
  Add Value:
  
  +Value Name:1
  +Data Type:REG_SZ
  + Value:20XX (2050 chẳng hạn)
  
  
  restart lại máy, đánh thử 1/12/30 để thấy kết quả. Tạo Key registry bằng tay trước đã rồi hãy dùng VBScript :P
  
  
  Chúc bé Thành Công. Cafe tan sở rồi. Dìa đây
• Bài trước Bài tiếp