mardi 3 mars 2009

Les mille et quatre-vingt-quinze jours

Petite suite à l'article "On mentira", voici une liste des mille et quatre-vingt-quinze jours.

!PDR-LANGUAGE=V1
$StartDate = Date( "04/03/2006" )
$Jours = 1095 ! Mille et Quatre-Vingt-Quinze jours
for $i from 1 to 20
  print "Anniversaire "+$i+": "+($StartDate+($i*$Jours))
next

Anniversaire 1: 03/03/2009 - Un seul mot: "OUI"
Anniversaire 2: 02/03/2012
Anniversaire 3: 02/03/2015
Anniversaire 4: 01/03/2018
Anniversaire 5: 28/02/2021
Anniversaire 6: 28/02/2024
Anniversaire 7: 27/02/2027
Anniversaire 8: 26/02/2030
Anniversaire 9: 25/02/2033
Anniversaire 10: 25/02/2036
Anniversaire 11: 24/02/2039
Anniversaire 12: 23/02/2042
Anniversaire 13: 22/02/2045
Anniversaire 14: 22/02/2048
Anniversaire 15: 21/02/2051
Anniversaire 16: 20/02/2054
Anniversaire 17: 19/02/2057
Anniversaire 18: 19/02/2060
Anniversaire 19: 18/02/2063
Anniversaire 20: 17/02/2066

Aucun commentaire: