Discussion :

[pijaku]

Bonjour,

En consultant l'aide VBA (F1 mon amie), j'ai découvert la fonction Date$ (avec un Dollar).
Je connais ce type de fonction avec les manipulations de base de String (Mid$, Left$ etc...) qui ne sont en réalité que stricto sensu la même chose que leurs "parentes" de type Variant, mais typées en String.

Cependant, avec la fonction Date, il y a une particularité que je ne saisis pas.

Extrait de l'aide VBA concerné :

Date, fonction
Renvoie une valeur de type Variant (Date) contenant la date système actuelle.
Date, et s'il s'agit d'un calendrier Grégorien, le comportement de Date$ reste inchangé par rapport à la valeur de la propriété Calendar. Si vous utilisez un calendrier Hijri, Date$ renvoie une chaîne de 10 caractères sous la forme mm-dd-yyyy, mm (01-12), dd (01-30) et yyyy (1400-1523) désignant respectivement le mois, le jour et l'année Hijri. La plage de valeurs équivalentes dans le calendrier Grégorien est comprise entre le 1er janvier 1980 et le 31 décembre 2099.

En gras, souligné, la partie qui a un "comportement inattendu" lors de mes essais.
En effet, si je lis bien, et étant en calendrier grégorien (du moins il me semble bien!), Date doit être égale à Date$.
Or, le code suivant renvoie Faux :

Code :

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

MsgBox Date = Date$

Il y a une inversion jours - mois.
Date = 05/12/2018 et Date$ = 12/05/2018

Je crois savoir que les dates, en texte, lors de transferts VBA => Excel sont souvent mal interprétées.
Est-ce du à cela ou à une tout autre incompréhension de ma part?

[patricktoulon]

re
Bonjour pijaku
non seulement il y a inversion du mois/jour mais le separateur est différent chez moi

Code :

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

1
2
3
Sub test()
MsgBox "Date($)  : " & Date$ & " : " & TypeName(Date$) & vbCrLf & "Date : " & Date & "  : " & TypeName(Date)
End Sub

ca ne serait pas la representation US des dates par hasard

drole de decouverte

fonction month,day,etc... inutilisable avec (resultats faux)

[BENNASR]

Bonjour pijaku, patricktoulon, la forum
en anglais :

The $ version of the function returns the same value as the Variant version. The one exception to the rule is the VBA Date function. The Date function should always be used because the Date$ function doesn't behave correctly. The Date$ always returns information in mm-dd-yyyy format regardless of the Windows localization settings, whereas the Date function uses the localization settings. Furthermore, you will always want to use the Format$ function to explicitly format a date. See also the section on Date Functions.

http://www.xoc.net/standards/rvbacc....rSignFunctions

[Menhir]

Or, le code suivant renvoie Faux :

Code :

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

MsgBox Date = Date$

Petit test dans la fenêtre d'exécution :

Code :

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

1
2
3
4
? Date
05/12/2018 
? Date$
12-05-2018

Non seulement il y a inversion mois-jour mais les séparateurs sont différents.

Perso, Date$, je ne lui fais pas confiance.
Je préfère Format(Now, "dd/mm/yyyy") qui permet de garder le contrôle.

[patricktoulon]

re
d'autant plus que comme je l'ai dis et testé on ne peut pas l'exploiter avec day,month,etc.....

[pijaku]

Bonjour,

Merci à tous, en particulier BENNASR pour le lien.
J'ai pourtant bien cherché sans rien trouver.

Merci
A++

PS : hors sujet, mais je ne reçois plus aucune notification par mail depuis une semaine, malgré la coche de la case : me notifier des modifications : Instantanée par email.
Idem pour les MP...