AnneeEnCours est une chaine = Gauche(DateSys(),4 )
JourAffiche est une date = AnneeEnCours + "0101" // Premier janvier de l'année en cours
i est un entier
pour i=1 à 366
si JourAffiche..Annee>AnneEnCours alors
SORTIR
fin
TableAjoute(Nom_Table, DateVersChaine(JourAffiche) )
JourAffiche..Jour += 1
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4250&post_id=17489