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

{ Calcul de la date suivant une date codee }
{ sous la forme jour mois annee en entier  }

{ Version 1                                }

date fonction jourSuivant(-> date d)
  date dt
  dt.annee <- d.annee
  dt.mois <- d.mois
  dt.jour <- d.jour+1
  si dt.jour > nombreJoursMois(d.mois,d.annee) alors
    dt.jour <- 1
    dt.mois <- dt.mois+1
    si dt.mois > 12 alors
      dt.mois <- 1
      dt.annee <- dt.annee+1
    fsi
  fsi
  retourner dt
fin fonction

{ Version 2                                }

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