System Date Format

[Frans C]

Well, I'm from the Netherlands, and work at an IT department. And if some app would change our systems date format, I would delete it as soon as I found out. Anyway, these settings are set each time our users log in, so any change would be temporary.

What I mean to say is, that (if possible) you should design your application to run with all regional settings possible.

But, who am I to tell you what to do.

so here is the code:

Option Explicit
Private Const LOCALE_SYSTEM_DEFAULT = &H800
Private Const LOCALE_USER_DEFAULT = &H400
Private Const LOCALE_SSHORTDATE = &H1F        '  short date format string
Private Const LOCALE_SLONGDATE = &H20        '  long date format stringPrivate Const LOCALE_USER_DEFAULT = &H400
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 SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long

Private Sub Command1_Click()
    Dim sLocale As String
    Dim retVal As Long
    sLocale = Space(255)
    retVal = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, sLocale, Len(sLocale))
    sLocale = Left(sLocale, retVal)
    MsgBox "Short Date Format = : " & sLocale
    sLocale = "dd-MM-yyyy"
    retVal = SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, sLocale)
    sLocale = Space(255)
    retVal = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, sLocale, Len(sLocale))
    sLocale = Left(sLocale, retVal)
    MsgBox "Short Date Format = : " & sLocale
End Sub

[Edited by Frans C on 11-14-2000 at 01:29 PM]