Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques
Bonjour, Yves wrote:
Bonjour,
C'est quoi la fonction pour savoir le format de date du serveur sur VB 6
Yves
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 Sub GetLocale() Dim FmtDate As String, Buffer As String Dim lResult As Long
Buffer = Space(256) lResult = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, _ LOCALE_SSHORTDATE, Buffer, Len(Buffer)) If lResult > 0 Then FmtDate = Left(Buffer, lResult - 1) Debug.Print FmtDate End If End Sub
-- Cordialement,
Jacques.
Bonjour,
Yves wrote:
Bonjour,
C'est quoi la fonction pour savoir le format de date du serveur sur VB 6
Yves
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 Sub GetLocale()
Dim FmtDate As String, Buffer As String
Dim lResult As Long
Buffer = Space(256)
lResult = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, _
LOCALE_SSHORTDATE, Buffer, Len(Buffer))
If lResult > 0 Then
FmtDate = Left(Buffer, lResult - 1)
Debug.Print FmtDate
End If
End Sub
C'est quoi la fonction pour savoir le format de date du serveur sur VB 6
Yves
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 Sub GetLocale() Dim FmtDate As String, Buffer As String Dim lResult As Long
Buffer = Space(256) lResult = GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, _ LOCALE_SSHORTDATE, Buffer, Len(Buffer)) If lResult > 0 Then FmtDate = Left(Buffer, lResult - 1) Debug.Print FmtDate End If End Sub
