[注意]access 2003输入当前日期快捷方式有问题

tz-chf

ctrl+;输入当前日期，如果输入掩码是中日期（00-00-00;0;_），会有问题。

今天是“05-10-06”，出来的是“2020-05-10”

如是“04-10-06”，出来的是“2020-04-10”

反正就是乱套了。如果日、月是个位数，还不符合掩码了。

yangzn

控制面板里重新设日期格式:或者用下面的代码试试rivate Const LOCALE_SSHORTDATE = &H1FPrivate Const LOCALE_ILZERO = &H12

Private Const LOCALE_STIMEFORMAT = &H1003Private Declare Function GetSystemDefaultLCID _

        Lib "kernel32" () As LongPrivate Declare Function SetLocaleInfo Lib _

     "kernel32" Alias "SetLocaleInfoA" ( _

     ByVal Locale As Long, _

     ByVal LCType As Long, _

     ByVal lpLCData As String) As BooleanPublic Sub setSystemDateFormat()    Dim lngLocale As Long    lngLocale = GetSystemDefaultLCID()    If SetLocaleInfo(lngLocale, _

        LOCALE_SSHORTDATE, _

        "yyyy/MM/dd") = _

                    False Then

   ' Handle error, possibly by writing it

   ' to a server error log

        Debug.Print "设置系统日期格式错误!"

   

    End If

   

    If SetLocaleInfo(lngLocale, _

        LOCALE_STIMEFORMAT, _

        "HH:mm:ss") = False Then

        Debug.Print "设置系统时格式错误"

   

    End If

   

    SetLocaleInfo lngLocale, LOCALE_ILZERO, "1"

End Sub

tz-chf

不是说怎么回避这个问题，我想知道你们的access是不是也有这个问题。

lm13326757826

Private Const LOCALE_SSHORTDATE = &H1F

Private Const LOCALE_ILZERO = &H12 Private Const LOCALE_STIMEFORMAT = &H1003

Private Declare Function GetSystemDefaultLCID _ Lib "kernel32" () As Long

Private Declare Function SetLocaleInfo Lib _ "kernel32" Alias "SetLocaleInfoA" ( _ ByVal Locale As Long, _ ByVal LCType As Long, _ ByVal lpLCData As String) As Boolean

Public Sub setSystemDateFormat()

Dim lngLocale As Long

lngLocale = GetSystemDefaultLCID()

If SetLocaleInfo(lngLocale, _ LOCALE_SSHORTDATE, _ "yyyy/MM/dd") = _ False Then ' Handle error, possibly by writing it ' to a server error log Debug.Print "设置系统日期格式错误!" End If If SetLocaleInfo(lngLocale, _ LOCALE_STIMEFORMAT, _ "HH:mm:ss") = False Then Debug.Print "设置系统时格式错误" End If SetLocaleInfo lngLocale, LOCALE_ILZERO, "1" End Sub