1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
HL = Heure Litteral
HC = Heure courante
MC = Minute courante
Function DonneHeure(Aval : Numeric) : Chaine
DEBUT
SI Aval = 12 ALORS
RETOURNE 'MIDI'
SINON
SI ((Aval = 24) OU (Aval = 00)) ALORS
RETOURNE 'MINUIT'
SINON
RETOURNE Aval
FIN
//////////////////////////////////////////
FONTION DonneMinute(AVal : Numeric;INF : BOOLEAN) : Chaine
DEBUT
SI Aval = 15 ALORS
DEBUT
SI INF ALORS
RETOURNE = "et quart"
SINON
RETOURNE = "le quart"
FIN
SINON
RETOURNE = AVal
FIN
//////////////////////////////////////////
DEBUT
SI MC > 30 ALORS
HL = DonneHeure(HC+1)+" moins "+DonneMinute(60-MC,FAUX)
SINON
SI MC < 30 ALORS
HL = DonneHeure(HC)+" "+DonneMinute(MC,VRAI)
SINON
DonneHeure(HC)+"et demis"
FIN |
Partager