Code : Tout sélectionner
For k=1 To 36
Debug AddDate(Date(), #PB_Date_Month, k)
Next k
Debug "an"
For k=1 To 36
Debug AddDate(Date(), #PB_Date_Year, k)
Next kCode : Tout sélectionner
For k=1 To 36
Debug AddDate(Date(), #PB_Date_Month, k)
Next k
Debug "an"
For k=1 To 36
Debug AddDate(Date(), #PB_Date_Year, k)
Next kLa librairie Date permet de gérer le temps et les dates depuis 1970 jusqu'à 2034, en utilisant le modèle Unix (nombre de secondes écoulées depuis le 1er janvier 1970).
Code : Tout sélectionner
Debug AddDate(Date(), #PB_Date_Month, 24)
Code : Tout sélectionner
x = AddDate(Date(), #PB_Date_Month, -1)
Debug x
x = AddDate(Date(), #PB_Date_Month, -2)
Debug x
x = AddDate(Date(), #PB_Date_Month, -3)
Debug x