>Here is the code I am using:
>
>Public Const LOCALE_SDATE = &H1D
>Public Declare Function GetLocaleInfo Lib "kernel32" Alias _
>"GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As _
>Long, lpLCData As String, ByVal cchData As Integer) As Integer
>Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
>
>
>Public Sub SetDate()
> Dim dwLCID As Long
> Dim leng As Integer
> Dim buf As String
> Dim Seperator As Integer
>
> buf = Space(255)
> leng = Len(test)
>
> dwLCID = GetSystemDefaultLCID()
> Seperator = GetLocaleInfo(dwLCID, LOCALE_SDATE, buf, leng)
> MsgBox (buf)
>
>End Sub
>
>* Note that Seperator always returns 0 and buf returns nothing.
Hi Michel,
The only thing that I can see may be that the third parameter should be passed by reference. It's been awhile since I've played with VB (Version 3.0). If I recall correctly, the solution to your problem may be to simply add ByRef to the function declaration.
hth,
George
Ubi caritas et amor, deus ibi est