1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| AN = aaaa;
MOIS = mm;
JOUR = jj;
tabMois = {31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}
si ((aaaa mod 4=0) et (aaaa mod 100!=0)) ou aaaa mod 400=0 alors
tabMois[1] = 28;
finsi
//On fait le jour d'avant
dire "Voici le jour d'avant";
si JOUR = 1 alors
si MOIS = 1 alors
dire "L'annee est " & AN - 1;
dire "Le mois est 12";
dire "Le jour est 31";
sinon
dire "L'annee est " & AN;
dire "Le mois est " & MOIS-1;
dire "Le jour est " & tabMois[MOIS-2];
finsi
sinon
dire "L'annee est " & AN;
dire "Le mois est " & MOIS;
dire "Le jour est " & JOUR-1;
finsi
etc.. |