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
Private Declare Function GetUserDefaultLCID Lib "KERNEL32" () As Long

Private Const LOCALE_SSHORTDATE = &H1F
Private Const LOCALE_SLONGDATE = &H20
Private Const ERROR_INSUFFICIENT_BUFFER = 122
Private Const ERROR_INVALID_FLAGS = 1004
Private Const ERROR_INVALID_PARAMETER = 87

Public Function GetDateFormat() As String
Dim result As Long
Dim date_format As String
Dim LocaleID As Long
    LocaleID = GetUserDefaultLCID()
    result = GetLocaleInfo(LocaleID, LOCALE_SSHORTDATE, date_format, 0)
    If result <> ERROR_INSUFFICIENT_BUFFER And _
        result <> ERROR_INVALID_FLAGS And _
        result <> ERROR_INVALID_PARAMETER Then
        date_format = Space(result - 1)
        result = GetLocaleInfo(LocaleID, LOCALE_SSHORTDATE, date_format, result)
    End If
    GetDateFormat = date_format
End Function

Public Declare Function GetDateFormat Lib "kernel32" Alias "GetDateFormatA" (ByVal Locale As Long, ByVal dwFlags As Long, _
lpDate As SYSTEMTIME, ByVal lpFormat As String, ByVal lpDateStr As String, ByVal cchDate As Long) As Long