{ Test si une annee est bissextile          }

action testBissextile(a,bsxt)
  Donnees   a  : entier          { l'annee a tester                            }
  Resultats bsxt : booleen       { le booleen resultat (vrai si a bissextile   }
  bsxt := faux
  si (a modulo 4) = 0 alors
    bsxt := vrai
  fsi
  si (a modulo 100) = 0 alors
    bsxt := faux
  fsi
  si (a modulo 400) = 0 alors
    bsxt := vrai
  fsi
fin action

{ Calcul du nombre de jours d'une annee     }
{ eventuellement bissextile                 }

action nombreJoursMois(m,a,nb)
  Donnees   m  : entier          { le mois de calcul                           }
            a  : entier          { l'annee de calcul                           }
  Resultats nb : entier          { l'entier resultat                           }
  Locales   bsxt : booleen
  dans le cas de
    m
     1 :
     3 :
     5 :
     7 :
     8 :
    10 :
    12 : nb := 31
     4 :
     6 :
     9 :
    11 : nb := 30
     2 : testBissextile(a,bsxt)
         si bsxt alors
           nb := 29
           sinon
           nb := 28
         fsi
  fin cas de
fin action  

{ Calcul de la date du lendemain            }

action dateLendemain(ji,mi,ai,jf,mf,af)
  Donnees   ji : entier          { le jour de calcul                           }
            mi : entier          { le mois de calcul                           }
            ai : entier          { l'annee de calcul                           }
  Resultats jf : entier          { le jour resultat                            }
            mf : entier          { le mois resultat                            }
            af : entier          { l'annee resultat                            }
  Locales   jm : entier          { variable locale de stockage du nombre       }
                                 { de jours du mois de l'annee de calcul       }
  nombreJoursMois(mi,ai,jm)
  si ji < jm alors
    jf := ji+1
    mf := mi
    af := ai
    sinon
    jf := 1
    si mi < 12 alors
      mf := mi+1
      af := ai
      sinon
      mf := 1
      af := ai+1
    fsi
  fsi
fin action