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