Heure : Entier Lecture Public;
Principal /*******/ Variable /******/ D : Date; Debut ... D=Date("1-2-3 4:5:6:7"); Ecran.Ecrire(D.Heure); /* Ecrit le numéro du mois soit 4. */ ... Fin Principal