Paramètres régionaux

Signaler
Messages postés
4
Date d'inscription
dimanche 19 octobre 2003
Statut
Membre
Dernière intervention
31 décembre 2003
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Bonjour à tous,

J'aimerais savoir comment prendre en compte les paramètres régionaux dans mon code.

Je m'explique : j'ai une petite application qui tourne sur différents postes; les paramètres régionaux ne sont pas toujours les mêmes d'un poste à l'autre pour des raisons précises ; ce qui m'empêche de les modifier (ce serait pourtant le plus simple....)

J'ai donc besoin de venir lire les paramètres régionaux du poste local (exemple : le format de la date) pour trnasformer mes données en fonction.

Merci de votre aide :)

Developp'jo :shy)

3 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
Const LOCALE_USER_DEFAULT = &H400
Const LOCALE_SLONGDATE = &H20
Const LOCALE_SSHORTDATE = &H1F

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 Form_Load()
    MsgBox "Format de date long : " & GetInfo(LOCALE_SLONGDATE)
    MsgBox "Format de date court : " & GetInfo(LOCALE_SSHORTDATE)
End Sub
Public Function GetInfo(ByVal lInfo As Long) As String
    Dim Buffer As String * 256
    Call GetLocaleInfo(LOCALE_USER_DEFAULT, lInfo, Buffer, 256)
    GetInfo = Split(Buffer, vbNullChar)(0)
End Function


By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)
Messages postés
47
Date d'inscription
mardi 2 novembre 2004
Statut
Membre
Dernière intervention
12 juin 2020

Merci pour ce code tres interressant, puis-je avoir la constante à declarer pour connaitre le separateur utilisé pour les ,nombres à virgule ( "." ou "," ?) ?
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
Private Const LOCALE_SDECIMAL As Long = &HE

Renfield
Admin CodeS-SourceS- MVP Visual Basic