Discussion :

[antezi]

Bonjour à tous,

J'ai besoin d'une aide. J'utilise access Offixe xp pro. Les paramètres régionaux de windows sont configurés sur Français(France). Quand je récupère la date du jour dans un formulaire avec la fonction Date$(), il m'affiche ça en format anglais c'est-à-dire "mm/dd/yyyy". Quelqu'un peut me dire comment faire. La date que je récupère est indépendant; c'est-à-dire ne dépend pas d'aucun objet(table, requête).

Merci d'avance de votre réponse.

Antezi.

[mcorvaisier]

Bonjour,
Je sais pas si ca va repondre à ton besoin mais moi j'ai mis un petit code dans mon formulaire qui permet d'inverser les jours et mois si les jours sont inférieurs à 12.
Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Dim dateM As String
    Dim dateY As String
    Dim dateF As Date
'Permet l'extraction des deux premiers caracteres de la date
    DateJ = Mid(lblDateEntrée.Value, 1, 2)
     If DateJ <= 12 Then
        dateM = DateJ
        DateJ = Mid(lblDateEntrée.Value, 3, 2)
        dateY = Mid(lblDateEntrée.Value, 5, 4)
        dateF = DateJ & "/" & dateM & "/" & dateY
    Else
        dateM = Mid(lblDateEntrée.Value, 3, 2)
        dateY = Mid(lblDateEntrée.Value, 5, 4)
        dateF = DateJ & "/" & dateM & "/" & dateY
    End If

Attention les valeurs présentes dans les Mid peuvent varier selon ta variable ici appellée lblDateEntrée.value.

J'espere que cela pourra t'aider.

[Jean-Philippe André]

Bonjour,
plus sobrement, sur une variable de type Date :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim dDate as Date
Msgbox Format(dDate,"dd/MM/yyyy")

Pour info complémentaire, un peu de lecture ici :
http://access.developpez.com/faq/?page=dates#DateFormat

[antezi]

Bonjour,
plus sobrement, sur une variable de type Date :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim dDate as Date
Msgbox Format(dDate,"dd/MM/yyyy")

Pour info complémentaire, un peu de lecture ici :
http://access.developpez.com/faq/?page=dates#DateFormat

Merci,

Où est ce que je vais coller ce code.
Rappel: c'est une étiquette indépendante de mon formulaire. Comment faire? Merci d'avance de votre réponse.

Augustin

[Domi2]

Bonjour,

Tu peux agir sur l'événement Sur Activation (Form_Current) de ton formulaire. Si ton contrôle est une étiquette, tu peux essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.lblLaDate.Caption = Format(Date,"dd.mm.yyyy")

Domi2

[antezi]

Merci,

Où est ce que je vais coller ce code.
Rappel: c'est une étiquette indépendante de mon formulaire. Comment faire? Merci d'avance de votre réponse.

Augustin

Bonjour,

j'ai tout essayé ça ne marche pas. Est-ce que je dois mettre le code sur l'étiquette dans le formulaire. Merci de m'aider car je suis débutant en vba.

Antezi