structure date
  entier jour <- 1
  entier mois <- 1
  entier annee <- 1901
fin structure

{ Modification d'une date codee sous forme }
{ jour mois annee en entier pour passer    }
{ au jour d'apres                          }

action jourDApres(-> date d ->)
  d.jour <- d.jour+1
  si d.jour > nombreJoursMois(d.mois,d.annee) alors
    d.jour <- 1
    d.mois <- d.mois+1
    si d.mois > 12 alors
      d.mois <- 1
      d.annee <- d.annee+1
    fsi
  fsi
fin action