Rebonjour,

[...]
Pourquoi suis-je obligé d'enlever 2 jours pour avoir la date correcte à "+ 1

an"?
Sans correction, j'obtiens systématiquement comme date à 1 an, la date de 
début + 1 an et 2 jours (20/06/2005 -> 22/06/2006).
[...]

Cela provient du type de données utilisé, utiliser un type "Date" prévu à
cet effet

Jean-Claude



Sub Main
dim vDate as date
dim vDateFin as date

vDate = cdatefromiso("2005-06-20")
Print vdate

vdatefin = dateserial (year (vdate) + 1, month (vdate), day (vdate))
Print vdatefin '20/06/2006
End Sub

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à