Format date instable

Version imprimable

15/10/2011, 12h11
danisoaz

Format date instable

Bonjour,

J'ai commencé le développement d'une appli de gestion sans me soucier ailleurs que dans les paramètres régionnaux de w7 de formater les dates et tout fonctionnait bien.

Puis après l'installation de l'utilitaire Canal+ à la demande (seul évènement extérieur intervenu sur mon PC) mes dates se sont affichées "mm/dd/yyyy"

J'ai modifié mon code format "dd/mm/yyyy" sans succès.
J'ai trouvé ici je crois un post indiquant que VBA interprétait format date bizarement et que pour obtenir "dd/mm/yyyy" il fallait coder "mm/dd/yyyy", ce que je fis. Et effectivement, cela fonctionnait correctement, jusqu'à ce matin où de nouveau les dates s'affichent "mm/dd/yyyy".

Quelqu'un a-t-il une explication ?

Je précise que les dates affichées dans les formulaires sont enregistrées dans les tables exclusivement par code et formatées de la même façon.

Merci de vodre éclairage
Daniel
15/10/2011, 12h23
Daniel.C

Bonjour,

Quel est le format de date dans les paramètres régionaux de Windows ?
15/10/2011, 14h05
danisoaz

Bonjour Daniel C.,

date courte jj/MM/aaa
date longue 1111 1 MMMM aaaa

merci
15/10/2011, 14h26
Daniel.C

Peux-tu poster le code que tu utilises ?

Citation:

Envoyé par Daniel.C

Peux-tu poster le code que tu utilises ?

enregistement

Code:

1
2
3
4
5
vCellule.Offset(0, 7) = Format(Lab_Date.Caption, "mm/dd/yyyy") 'Date de création du devis
vCellule.Offset(0, 8) = Format(Lab_DateModif.Caption, "mm/dd/yyyy") 'Date de la dernière modification
vCellule.Offset(0, 9) = Format(TxtDateOk, "mm/dd/yyyy") 'Date de l'acceptation par le client
vCellule.Offset(0, 10) = Format(TxtDateCloturé.Text, "mm/dd/yyyy") 'Date de clôture de l'affaire(A la fermeture de la fiche de prod)
vCellule.Offset(0, 11) = Format(TxtDateRefusé.Text, "mm/dd/yyyy") 'Date du refus du client

Chargement de l'USF

Code:

1
2
3
4
5
Lab_Date.Caption = Format(vCellule.Offset(0, 7), "mm/dd/yyyy")
Lab_DateModif.Caption = Format(vCellule.Offset(0, 8), "mm/dd/yyyy")
TxtDateOk.Text = Format(vCellule.Offset(0, 9), "mm/dd/yyyy")
TxtDateCloturé.Text = Format(vCellule.Offset(0, 10), "mm/dd/yyyy")
TxtDateRefusé.Text = Format(vCellule.Offset(0, 11), "mm/dd/yyyy")

Merci
Daniel

15/10/2011, 19h20
danisoaz

Précision complémentaire

J'ai désinstallé Canal+ à la demande, rebooté : le code format("mm/dd/yyyy") donne toujours mm/dd/yyyy, ce qui en soi est bien normal.

Je modifie le code en format("dd/mm/yyyy") et j'obtiens bien dd/mm/yyyy.
Ce qui est bien normal aussi.

Mais je suis obligé de couvrir le risque de voir ressurgir ce problème chez l'utilisateur après l'installation d'un logiciel. Et je ne trouve pas le code permettant d'initialiser les paramètres régionnaux pour faire tourner mon appli et les remettre à l'état initial à la sortie.

Merci
Daniel
15/10/2011, 20h38
SfJ5Rpw8

C'est quoi le contrôle : "Lab_Date" ? comment est-t'il renseigné ?

pourquoi utilise tu Format ? format permet de transformer les dates en chaine de caractères... pourquoi ne pas mettre directement ta date au format date dans ta cellule..
15/10/2011, 21h52
Daniel.C
La commande "Format" te renvoie du texte, alors qu'il te faut du format "Date".
A l'initialisation, mets (je n'ai modifié que la première ligne) :

Code:

Lab_Date.Caption = vcellule.Offset(0, 7)

et à l'écriture dans la cellule :
Code:

1 2 vcellule.Offset(0, 7).NumberFormat = "dd/mm/yyyy" vcellule.Offset(0, 7) = Lab_Date.Caption
16/10/2011, 09h30
danisoaz
Citation:

Envoyé par bbil

C'est quoi le contrôle : "Lab_Date" ? comment est-t'il renseigné ?

pourquoi utilise tu Format ? format permet de transformer les dates en chaine de caractères... pourquoi ne pas mettre directement ta date au format date dans ta cellule..

Bonjour Bbil,

Lab_Date est une étiquette que je charge automatiquement et que l'utilisateur ne peut pas modifier.
Code:

1 2 3 Lab_Date.Caption = Format(Date, "dd/mm/yyyy") 'sachant qu'avant mon problème je codais tout simplement Lab_Date.Caption = Date
Je n'utilisais pas Format avant mon problème et tout fonctionnait très bien !
Les colonnes recevant les dates sont formatées date.
Merci
Daniel
16/10/2011, 09h37
danisoaz

Bonjour Daniel C.,

Ok avec vos deux réponses je comprends la cohérence de ce que vous me proposez et je ferais demain les modifs en ce sens et un test en réinstallant l'appli de Canal+. Je passerais en résolu si ok.

Merci et bon dimanche
Daniel
16/10/2011, 10h58
SfJ5Rpw8

Citation:

Envoyé par danisoaz

Bonjour Bbil,

Lab_Date est une étiquette que je charge automatiquement et que l'utilisateur ne peut pas modifier.
...

et alors pourquoi alors ne pas écrire

Code:

vCellule.Offset(0, 7) = Date 'Date de création du devis

ainsi tout est au format Date ...

Citation:

Envoyé par danisoaz

....
Je n'utilisais pas Format avant mon problème et tout fonctionnait très bien !
Les colonnes recevant les dates sont formatées date.
...

Ce n'est pas l'utilisation format qui cause problème mais la façon dont on l'utilise... format renvoi une chaine de caractére et c'est la transformation de cette chaine en type date qui dépend des paramètres régionaux

tu devrais avoir le même problème avec la ligne :

Code:

vcellule.Offset(0, 7) = Lab_Date.Caption

qui laisse au système le choix de la méthode pour transformer la chaine contenu par Lab_Date en date.
17/10/2011, 16h03
danisoaz

OK

Bonjour Bbil et Daniel C.,

J'ai supprimé tous les Format et tout est ok.
Mais comme à l'origine je n'utilisais pas non plus cette fonction et que tout allait bien, je ne suis pas plus tranquille que ça.

Merci beaucoup.
Daniel
17/10/2011, 16h05
SfJ5Rpw8

Tu as fait quoi exactement ? relis mon dernier message ..!
17/10/2011, 19h18
danisoaz

Citation:

Envoyé par bbil

Tu as fait quoi exactement ? relis mon dernier message ..!

J'ai fait comme tu m'as dit ! Pour les dates automatiques

Code:

vCellule.Offset(0, 7) = Date

Et pour les autres j'oblige la saisie par choix dans un contrôle calendar et vdate étant la variable que je récupère, je code

Code:

vCellule.Offset(0, 8) = vDate

Enfin j'ai contrôlé le format de toutes mes colonnes dates dans les tables.

C'est bien ça ?

Merci
Daniel
17/10/2011, 20h39
SfJ5Rpw8
:ccool:

pour comprendre le problème que je soulever tu pourrai essayer de remplace Date par DateSerial et ainsi choisir ta date de test :
Code:

1 2 3 4 5 6 7 8 9 10 Dim iAn as integer Dim iMois As integer Dim iJour as integer iAn = 2011 iMois = 10 iJour = 1 Lab_Date.Caption = dateSerial(iAn,iMois,iJour) vCellule.Offset(0, 7) = Lab_Date.Caption
et tu pourras mettre en évidence un problème avec les dates < au jour 12 si ton paramètres régionaux 'mm/dd/yyyy' ...

L'utilisation de format n'est pas interdite .. elle te permet de choisir le format de visualisation de ta date dans une chaîne de caractères (par exemple ton Lab_Date.Caption) ...

mais tu ne peu pas l'utiliser pour assigner un format d'affichage à une variable de type Date car le type Date n'intègre pas son format d'affichage

Citation:

Envoyé par aide en ligne

Lesvariables de type Date sont stockées sous la forme de nombres à virgule flottante de 64 bits (8 octets) IEEE représentant des dates comprises entre le 1er janvier 100 et le 31 décembre 9999, et des heures allant de 0:00:00 à 23:59:59

;)
18/10/2011, 08h33
danisoaz

Bonjour Bbil,

J'ai bien compris l'utilisation de format.
Je suis un peu sur le gaz pour installer une nouvelle version, donc je garde ton test au chaud, je reviendrais dessus après.

Merci
Daniel
06/11/2011, 18h22
danisoaz

Bonjour Bbil,

Après installation et désinstallation de l'application "Canal+ à la demande" et observation des tests, je confirme que ce programme mets bien la zone dans la gestion des dates sans que les paramètres régionnaux soient modifiés !
Pour le principe, je vais leur signaler mais je doute qu'ils s'en préoccupent.

Cordialement