Discussion :

[jp2popup]

Bonjour je connais très mal VBA mais je dois faire une petite appli pour un doc excel.

Je dois faire une conversion: double vers date et je reste perplexe.

Voici le bout de code que je viens d'écrire pour apprendre:

Code :

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

1
2
3
4
5
6
 
Dim d_madate As Double
d_madate = 1.5
Dim dt_madate As Date
dt_madate = CDate(d_madate)
MsgBox "Nous sommes le " & d_madate & " soit le: " & dt_madate

C'est simple à comprendre, mais ça me cast 1.5 en 31-12-1899 12h00

Or j'attendais le 01-01-1900 12h00...

Qu'est ce que je ne comprends pas ?

D'avance, merci.

[sevyc64]

Il n'y a rien de choquant. VBA utilise un format de Date dit OLE Automation.

Dans ce format, la date est représentée par un nombre à virgule flottante de type Double, où la partie entière représente le nombre de jours depuis le 30 décembre 1899 0h00 et la partie décimale les heures/minutes/secondes

Donc 1.5 donne 30/12/1899 +1 jour + 0.5 jours soit 31/12/1899 12h00

[jp2popup]

Merci sevyc64

En effet.

Mais faut le savoir...

Effectivement si je rajoute une ligne à mon code:

Code :

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

1
2
3
4
5
6
7
Dim d_madate As Double
    d_madate = 1.5
Dim dt_madate As Date
    dt_madate = CDate(d_madate)
 
MsgBox "Nous sommes le " & d_madate & " soit le: " & dt_madate
Range("A1") = dt_madate

Dans la msgbox, la date sera 31/12/1899 12h00 (référentiel OLE Automation)
Dans la cellule A1: 01/01/1900 12h00 (référentiel microsoft office)

[jp2popup]

Quelqu'un a-t-il une idée pour traiter proprement ce problème ?

• Je récupère un numéro de série de date de type double (référentiel excel).
  
• Je le cast avec Cdate
  
• Je l'utilise ET dans des feuilles (référentiel excel) ET dans des msgbox (référentiel ole automation)

Evidémment je peux créer deux variables: pour le référentiel Ole automation, avant conversion j'additionne 1 . Mon problème est réglé.

Mais ça me parait malpropre comme solution et source de confusion !

[Didier Gonard]

Bonjour,

Il n'y a rien de choquant. VBA utilise un format de Date dit OLE Automation.

... pas vraiment en fait, d'où les confusions, le système est identique oui pour la construction des Numéros de série en nombre à virgule, mais les correspondances ne sont pas identiques. (en VBA le calendrier débute le 31 décembre 1899)

voir : http://msdn.microsoft.com/fr-fr/libr...=vs.90%29.aspx

Remarque : Les dates Excel diffèrent des dates OLE Automation pour les deux premiers mois de 1900. Il existe également des différences si l'option Calendrier depuis 1904 est activée. Les exemples de code ci-dessous ne traitent pas ces différences.

et voir ce tuto :

Comprendre et gérer les dates sous Excel et en VBA
En particulier ce chapitre : http://didier-gonard.developpez.com/...t-vba/#LII-D-2 qui est surement à l'origine de la différenciation notée plus haut et de ce différentiel de +1

Ainsi que : http://didier-gonard.developpez.com/...et-vba/#LIII-B

En VBA :

Le calendrier débute au 31 décembre 1899 (son Numéro de série 1 ) mais il sait aussi prendre en compte toutes les dates allant du 1er janvier 100 au 31 décembre 9999.
Les dates "positives" débutent avec le 31 décembre 1899 (au lieu du 1er janvier 1900 pour les feuilles de calcul).
La date nulle (son Numéro de série 0 ) correspond bien au 30 décembre 1899 mais, bizarrement, VBA ne sait pas l'afficher (il retourne 00:00:00, ce qui doit correspondre au point origine de l'axe du temps) !
Quant aux dates "négatives", elles commencent au 29 décembre 1899 et vont, en reculant dans le temps, jusqu'au 1er janvier 100.

donc, @ jp2popup, tu as l’explication de ton problème...

et.. pour s'amuser, voir : IV-B. L'énigme du jour zéro en vba : le 30 décembre 1899


Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[jp2popup]

donc, @ jp2popup, tu as l’explication de ton problème...

Merci Didier.

Non seulement j'ai une explication à mon problème, mais surtout je suis un peu plus intelligent et cultivé que ce matin à mon réveil !

En Résumé:

Donc, à partir du numéro de série 61 (1 mars 1900) mon problème n'existe plus (grâce à une approximation de microsoft sur le caractère bissextile ou non de 1900). Merci microsoft ! Ca tombe bien les dates que j'ai à traiter ne remontent pas aussi loin...

Je vais étudier de très près ton tuto ce week-end.

Et j'attends la livraison de l'ouvrage excel et la gestion du temps (eni) que j'ai commandé il y a peu suite à la lecture de sa critique que tu avais lancée.