Snippet Library

Public Function GetDateFormat() As String
'
'
    Dim lBuffLen As Long
    Dim sBuffer As String
    Dim lResult As Long
    Dim sDateFormat As String
    
    On Error GoTo vbErrorHandler
    
    lBuffLen = 128
    sBuffer = String$(lBuffLen, vbNullChar)
    
    lResult = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, sBuffer, lBuffLen)
    
    If lResult > 0 Then
        sDateFormat = Left$(sBuffer, lResult - 1)
'
' Make sure we always have YYYY format for y2k
'
         If InStr(1, sDateFormat, "YYYY", vbTextCompare) = 0 Then
'
' Use the replace function provided with this database
'
             Replace sDateFormat, "YY", "YYYY"
         End If
        
         GetDateFormat = sDateFormat
    Else
        GetDateFormat = "DD/MM/YYYY"
    End If
    Exit Function

vbErrorHandler:
'
' Handle errors here
'
End Function

none;