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

Messages postés
11
Date d'inscription
mercredi 21 août 2002
Statut
Membre
Dernière intervention
16 juillet 2004
-
Messages postés
11
Date d'inscription
mercredi 21 août 2002
Statut
Membre
Dernière intervention
16 juillet 2004
-
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

Messages postés
100
Date d'inscription
mercredi 29 mai 2002
Statut
Membre
Dernière intervention
27 juillet 2004

Regarde à l'adrs :

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

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

NuNu.
Messages postés
11
Date d'inscription
mercredi 21 août 2002
Statut
Membre
Dernière intervention
16 juillet 2004

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
Messages postés
11
Date d'inscription
mercredi 21 août 2002
Statut
Membre
Dernière intervention
16 juillet 2004

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