Define jour_décimal()=
Prgm
:Local a,jr,hr,mn,sc,jd,i
:Local h,m,s
:0→a:0→jr:0→hr:0→mn:0→sc:0→jd
:0→h:0→m:0→s
:setMode(5,2)
:Disp ""
:Disp "[enter] et donner l'unitée de départ"
:Disp ""
:Disp "Convertir jour normal    -> jour décimale 1"
:Disp "Convertir jour décimale -> jour normal    2"
:For i,1,3:Disp "":EndFor
:getKey(1)
:Request "Votre choix",a
:If a=1:Goto jnjd
:If a=2:Goto jdjn
:©----------------------Ctrôle choix
:If a<1 or a>2: Goto fin
:©-------------------Entrée jour norm  
:Lbl jnjd
:©Request "date du jour",jr
:Request "heure : ",hr
:Request "minute: ",mn
:Request "seconde: ",sc
:©-------------------Ctrôle jour norm
:If sc>60 Then
:  sc-60→sc:mn+1→mn
:EndIf
:If mn>60 Then
:  mn-60→mn:hr+1→hr
:EndIf
:If hr>23:hr-24→hr
:If hr<0:hr+24→hr
:©-------------------Calc jour décim
:((sc)/(60))→m
:((m+mn)/(60))→h
:hr+h→h
:((h)/(24))→jd
:©------------------Sortie jour decim
:For i,1,2:Disp "":EndFor
:Disp "jour décimal: ",jd
:For i,1,3:Disp "":EndFor
:Disp "                                         Entrer pour sortir !"
:getKey(1)
:Goto fin
:©------------------Entrée jour décim
:Lbl jdjn
:Request "jour décimal: ",jd
:©------------------Ctrôle jour décim
:© If jd>0:Goto fin
:©--------------------calc jour norm
:int(jd)→jr
:fPart(jd)*24→h
:int(h)→hr
:fPart(h)*60→m
:int(m)→mn
:fPart(m)*60→sc
:round(sc,3)→sc
:©-------------------Sortie jour norm
:For i,1,2:Disp "":EndFor
:Disp "heure du jour ",hr,"hr ",mn,"min ",sc,"sec"
:For i,1,2:Disp "":EndFor
:Disp "                                 Entrer pour sortir !"
:getKey(1)
:Lbl fin
:EndPrgm