Re: Remplisage d une table date année en cours

Posté par Totof le 21/6/2006 11:09:25
Bonjour,

Vous pouvez essayer comme ceci :

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


Bon dév.,

Totof

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4250&post_id=17489