GetDateFormat

Public Function GetDateFormat() As String
'
' This function will return the Locale date format for the system. Note that the
' returned Year is always formatted to 'YYYY' regardless, to ensure compliance with
' Y2k stuff.
'
    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

Public Function GetDateFormat() As String
'

' This function will return the Locale date format for the system. Note that the

' returned Year is always formatted to 'YYYY' regardless, to ensure compliance with

' Y2k stuff.

'

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