Private Const LOCALE_SSHORTDATE = &H1F

Private Declare Function SetLocaleInfo Lib "kernel32"_Alias "SetLocaleInfoA"

    (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String)
As Long

Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long

Private Sub SetDateFormat
    Dim llngLCID As Long
    Dim llngReturn as Long

    llngLCID = GetSystemDefaultLCID
    l = SetLocaleInfo(llngLCID,LOCALE_SSHORTDATE, "MM/dd/yyyy")
End Sub
On Sun, 30 Sep 2001 12:47:22 -0400, professional vb wrote:

  
  Is there any way to programmatically change the system date format?  I
  can read the format, but I would like to give the user the option of
  temporarily changing the format to match the format on the server.  Does
  anyone know how to change these settings programmatically.
  
  Thanks,
  Yehuda
  
  
  



Brian Walk
r
i
a
n
 
W
a
l
k