Phát hiện ngày tháng không đúng dd/mm/yyyy

[phuyen89]

Cho em hỏi có đoạn code nào mà khi mở File Excel lên nó sẽ kiểm tra xem trong Region languge có đúng ngày theo dạng dd/mm/yyyy không?
+Nếu không đúng dịnh dạng dd/mm/yyyy thì thông báo và thoát Excel
+Nếu đúng định dạng trên thì giống như là mở bình thường.

 

[ndu96081631]

Cho em hỏi có đoạn code nào mà khi mở File Excel lên nó sẽ kiểm tra xem trong Region languge có đúng ngày theo dạng dd/mm/yyyy không?
+Nếu không đúng dịnh dạng dd/mm/yyyy thì thông báo và thoát Excel
+Nếu đúng định dạng trên thì giống như là mở bình thường.

Quy định về Date nằm tại:
HKCU\Control Panel\International\sLongDate
và
HKCU\Control Panel\International\sShortDate
Từ đó mà tính tiếp!
Dùng cái này để thí nghiệm nè:

Sub Test()
  Dim sDate As String, lDate As String
  sDate = "HKCU\Control Panel\International\sShortDate"
  lDate = "HKCU\Control Panel\International\sLongDate"
  With CreateObject("WScript.Shell")
    MsgBox .RegRead(sDate)
    MsgBox .RegRead(lDate)
  End With
End Sub

 

[nmhung49]

Em thấy có đoạn code nay cũng hay không biết có đúng ý của bạn không

Private Sub Workbook_Open()
If CStr(Date) <> Format(Date, "dd/MM/yyyy") Then
MsgBox ("Kiem tra lai : ngay he thong may tinh cua ban dang la : " & Date & Chr(13) & "Phai sua lai dinh dang : dd/MM/yyyy " & Chr(13) & "Chuong trinh ket thuc"), vbExclamation, "Sai dinh dang ngay !"
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub

 

[ndu96081631]

Em thấy có đoạn code nay cũng hay không biết có đúng ý của bạn không

Private Sub Workbook_Open()
If CStr(Date) <> Format(Date, "dd/MM/yyyy") Then
MsgBox ("Kiem tra lai : ngay he thong may tinh cua ban dang la : " & Date & Chr(13) & "Phai sua lai dinh dang : dd/MM/yyyy " & Chr(13) & "Chuong trinh ket thuc"), vbExclamation, "Sai dinh dang ngay !"
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub

Nếu chỉ để "biết" thì đâu nói làm gì (tôi gõ đại vào 1 cell cũng biết vậy) ---> Tôi nghĩ vấn đề ở đây người ta cần là: Sau khi "biết" được date format không đúng ý mình thì người ta sẽ tiến hành chỉnh lại
Và WScript.Shell object có thể làm được việc này ---> Đọc giá trị Date Format và chỉnh sửa lại đúng ý luôn (nếu ta muốn):
- RegRead dùng để "đọc" giá trị
- RegWrite dùng để "ghi" giá trị