Modifier le style de date courte (-> jj/mm/aaaa)

4get9 Messages postés 11 Date d'inscription mercredi 21 août 2002 Statut Membre Dernière intervention 16 juillet 2004 - 21 août 2002 à 11:07
4get9 Messages postés 11 Date d'inscription mercredi 21 août 2002 Statut Membre Dernière intervention 16 juillet 2004 - 22 août 2002 à 09:55
je cherche à forcer les paramètres régionaux, le style de date courte plus précisement.
Je voudrais le forcer à jj/mm/aaaa

J'ai réussit à modifier les 2 clefs dans la base de registre :
r.RegWrite "HKEY_USERS\.DEFAULT\Control Panel\International\sShortDate", "dd/MM/yyyy"
r.RegWrite "HKEY_CURRENT_USER\Control Panel\International\sShortDate", "dd/MM/yyyy"

et à modifier le WIN.INI :
Call WriteProfile("win.ini", "intl", "sShortDate", "dd/MM/yyyy")

(je ne met pas tous le code, tout vient du forum)

mais cela ne me met pas à jour pour autant le paramètre.

y'a t il d'autres clefs a modifier ou d'autres fichiers, faut-il une quelconque validation, ou bien y'a t il une autre méthode plus directe ?

Merci d'avance.

---------------
4GET9

3 réponses

cs_NuNu Messages postés 100 Date d'inscription mercredi 29 mai 2002 Statut Membre Dernière intervention 27 juillet 2004
21 août 2002 à 13:17
Regarde à l'adrs :

"http://www.thescarms.com/VBasic/changelocale.asp".

ça peut peut-être t'intéresser

NuNu.
0
4get9 Messages postés 11 Date d'inscription mercredi 21 août 2002 Statut Membre Dernière intervention 16 juillet 2004
21 août 2002 à 14:55
Merci !

bon c'est du VB, et moi je suis sur ACCESS, donc il faudra que je regarde chez moi (avec VB) pour regarder les paramètres dont j'ai besoin.

sinon ca a l'air de correspondre exactement à ce que je veux et uniquement avec un appel, et non avec une tartine de code.

merci bcp !

a+

je mettrais mon code une fois que je l'aurais fait (demain) des fois que quelqu'un serait interessé.

---------------
4GET9
0
4get9 Messages postés 11 Date d'inscription mercredi 21 août 2002 Statut Membre Dernière intervention 16 juillet 2004
22 août 2002 à 09:55
Ca y est ca marche.
Voici mon source pour ACCESS (j'ai épuré un peu)

=================DEBUT===============
Option Compare Database
Option Explicit

Private Const LOCALE_SSHORTDATE As Long = &H1F 'short date format string

Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long

Private Sub Commande0_Click()
On Error GoTo Err_Commande0_Click

Dim lLCID As Long
Dim sNewFormat As String

lLCID = GetSystemDefaultLCID()
Call SetLocaleInfo(lLCID, LOCALE_SSHORTDATE, "dd/MM/yyyy")
DoCmd.Quit

Exit_Commande0_Click:
Exit Sub
Err_Commande0_Click:
MsgBox Err.Description
Resume Exit_Commande0_Click
End Sub
==================FIN================

j'espère que cela pourra en aider d'autres.

merci à toi Nunu

a+

---------------
4GET9
0
Rejoignez-nous