phát hiện lỗi của code tự động cài đặt dd-mm-yyyy dùm

[buivankiet]

Trong diễn đàn Bạn Đào Việt Cường có code tự động cài đặt lại dd-mm-yyyy trong control panel. sau khi chạy code, vào control panel xem thấy ngày đã được set lại, nhưng không tác dụng trên bảng tính,phải thủ công vào cutomze apply lại mới chịu. Xin các Bạn tìm lỗi của code này sửa lại dùm,
cám ơn Bạn Đào Việt Cường và các bạn

Option Explicit
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" _
(ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long
Private 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
Const LOCALE_SSHORTDATE = &H1F
Const LOCALE_USER_DEFAULT = &H400
'______________________________
Public Function LPSTRToVBString$(ByVal s$)
Dim nullpos&
nullpos& = InStr(s$, Chr$(0))
If nullpos > 0 Then
LPSTRToVBString = Left$(s$, nullpos - 1)
Else
LPSTRToVBString = ""
End If
End Function

'Thủ tục thiết lập lại định dạng ngày hệ thống nếu không đúng tiêu chuẩn '"dd/MM/yyyy"

Private Sub ShortDateFormat_Set() 
Dim dl As String
Dim buffer As String * 100
dl = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, buffer, 99)
dl = LPSTRToVBString(buffer)
If UCase(dl) <> "DD/MM/YYYY" Then
dl = SetLocaleInfo(0, LOCALE_SSHORTDATE, "dd/MM/yyyy")
End If
End Sub

</b>​