Re: Parametres regionaux du format de la date

Question

Suite &#224; mon message:
Slt,
Quelqu'un sais comment changer les Parametres regionaux du format de la date courte grace &#224; VB
car j'ai certaine appli que ne fonctionne pas malgr&#233; avoir fais un format(date,"dd/MM/yy")
Donc je souhaite le faire en dur au demarrage de mon appli
Merci de votre aide
J'ai trouv&#233; &#231;a, quelqu'un peu l'essayer sur differnent OS francais et Anglais
Test&#233; sous XP Sp1 OK
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 GetUserDefaultLCID Lib "kernel32" () As Long 
Private Sub Command1_Click()
'Recherche valeur de la date courte
Set WshShell = CreateObject("Wscript.Shell")
MyFormDate = WshShell.Regread("HKEY_CURRENT_USER\Control Panel\International\sShortDate")
'V&#233;rifier si la date courte est du format "dd/MM/yy" et la change dans la base de registre
If MyFormDate <> "dd/MM/yy" Then
 Set WshShell = CreateObject("Wscript.Shell")
 WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\International\sShortDate", "dd/MM/yy"
End If
 
'Renvoi le format de la date de l'utilisateur local
Dim lngResultat As Long
Dim buffer As String
Dim locale As Long
'r&#233;cup&#232;re l'identifiant de l'information locale de type utilisateur
locale = GetUserDefaultLCID()
'renvoie le nombre de caract&#232;res n&#233;cessaire pour recevoir la valeur de la date courte demand&#233;
lngResultat = GetLocaleInfo(locale, 33, buffer, 0)
buffer = String(lngResultat, 0)
GetLocaleInfo locale, 33, buffer, lngResultat
pos = InStr(buffer, Chr(0))
If pos > 0 Then TypeDate = Left(buffer, pos - 1)If TypeDate 0 Then TypeDate "M-J-A"If TypeDate 1 Then TypeDate "J-M-A"If TypeDate 2 Then TypeDate "A-M-J"
End Sub

ScSami · Answer

D&#233;j&#224;, on ne sais m&#234;me pas sous quelle version de VB tu codes, et ensuite, si tu te donnais la peinne de faire une petite recherche sur VBFrance tu trouverais tout de suite!

Enjoy 

 
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

FMatrix07 · Answer

Merci pour ta r&#233;ponse ScSami mais si j'ai pos&#233; la question dans le forum c'est que je n'ai rien trouv&#233; qui me convient comme r&#233;ponse.
Il est vrai je n'ai pr&#233;cis sous quelle version est mon code mille pardon
pour info c'est VB6 sp5

ScSami · Answer

Enfin, note qu'on ne doit JAMAIS modifier les param&#232;tres r&#233;gionaux !!! Il faut laisser &#224; l'utilisateur ses param&#232;tres. Et n'oubli pas que ton programme ne sera pas le seul &#224; utiliser l'ordinateur (en m&#234;me temps) !!!

Tu te dois de d&#233;tecter ces param&#232;tres (y'a beaucoup de techniques diff&#233;rentes... cf. forum) et adapter ton conde en cons&#233;quence, mais tu ne dois jamais les modifier !!!

Enjoy 

 
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

FMatrix07 · Answer

Je suis d'accord avec toi mais dons mon programme complet je lis la valeur en entrant dans le programme puis au moment de la sortie je remets les anciens parametres.
Je n'ai mis qu'un bout de code pour expliquer comment faire c'est tout.

ScSami · Answer

Bon, d'accord, mais imagine qu'un autre programme, entre temps (entre l'ouverture et la fermeture), ai besoin de l'info (l'originale) !!!

D'o&#249; le fameux "jamais" pr&#233;c&#233;dent !

Enjoy 

 
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

Re: Parametres regionaux du format de la date

5 réponses

Discussions similaires