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

[Jean-Philippe André]

en lisant l'item que je t'ai indique, on trouve que le 01/01/1900 a la valeur 2

[kiki29]

Salut,concernant les Dates voir http://didier-gonard.developpez.com/...-excel-et-vba/

[Dormeur74]

Désolé pour le retard, j'ai dû m'absenter rapidement pour des raisons familiales.
Merci à tous pour l'excellence des réponses. Problème réglé.

[Denis_67]

Un petite info complémentaire, qu'il ne me semble pas avoir vue.
J'avais besoin d'utiliser le Numéro de série complet pour avoir un timestamp unique, j'ai utilisé la séquence

Code :

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

1
2
3
4
5
6
 
CDbl(Now())   ' renvoie le Numéro de série du jour partie entière et l'heure partie décimale, exemple : 43249,3503125
 
' par ailleurs
CDbl(Date())   ' renvoie le Numéro de série du jour uniquement partie entière, exemple : 43249
CDbl(Time())   ' renvoie le Numéro de série du jour partie entière et l'heure partie décimale, exemple : 0,3503125

Denis