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