Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Public 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
 
Public Function GetUserLocaleInfo(ByVal dwLocaleID As Long, _
  ByVal dwLCType As Long) As String
 
  Dim sReturn As String
  Dim Result As Long
 
  Result = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, _
              Len(sReturn))
  If Result Then
    sReturn = Space$(Result)
    Result = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, _
              Len(sReturn))
    If Result Then
      GetUserLocaleInfo = Left$(sReturn, Result - 1)
    End If
  End If
End Function

Public Function GetSystemShortDate() As String
  Const LOCALE_SSHORTDATE = &H1F
 
  Dim LCID As Long
  Dim sFormat As String
 
  LCID = GetSystemDefaultLCID()
 
  ' Kurzes Datumsformat ermitteln
  sFormat = LCase$(GetUserLocaleInfo(LCID, LOCALE_SSHORTDATE))
 
  GetSystemShortDate = sFormat
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de