{ Stockage d'une date avec initialisation   }

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

{ Stockage d'une heure avec initialisation  }

structure typeHeure
  entier seconde <- 0
  entier minute <- 0
  entier heure <- 0
fin structure

{ Stockage d'un temps compose               }
{ d'un typeDate et d'un typeHeure           }
{ Initialisation obligatoire                }
{ des deux variables membres agregees       }

structure typeTemps
  typeHeure heure
  typeDate date
fin structure