Discussion :

[Dormeur74]

Bonjour,

J'aimerais savoir s'il est possible sous VBA 2003 de calculer le nombre de jours écoulés (n° de série) entre le "01-01-1900" et le "08-01-2011".

Je n'ai pas trouvé la fonction directe qui devrait me retourner (sauf erreur de ma part) la valeur 40557.

Merci d'avance.

[Jean-Philippe André]

salut,

Code :

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

CDbl(Date())

devrait repondre a ta question.

sinon dans la on trouve plein d'items qui en parlent, notamment celui ci
http://access.developpez.com/faq/?pa...es#ExplicDates

[chyanon]

Bonjour,
J'ai fais ça et je trouve 40549

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
Dim date1 As Date
Dim date2 As Date
Dim dif
 
date1 = "08-01-2011"
date2 = "01-01-1900"
 
dif = date1 - date2
 
MsgBox dif
 
End Sub