Define heure_décimale()=
Prgm
:Local a,h,m,s,e,r,i
:0→a:0→h:0→m:0→s:0→e:0→r
:setMode(5,2)
:Disp ""
:Disp "[enter] et donner l'unitée de départ         "
:Disp ""
:Disp "Convertir hr,min,sec -> hr décimle   1"
:Disp "Convertir hr décimle -> hr,min,sec   2"
:For i,1,3:Disp "":EndFor
:getKey(1)
:Request "Votre choix",a
:If a=1:Goto hms
:If a=2:Goto hd
:©----------------------Ctrôle choix
:If a<1 or a>2: Goto fin
:©-------------------Entrée hr mn sec
:Lbl hms
:Request "Heure = °",h
:Request "Minute = '",m
:Request "Seconde = """,s
:©--------------------Ctrôle hr,mn,sec
:If s>60 Then
:  s-60→s:m+1→m
:EndIf
:If m>60 Then
:    m-60→m:h+1→h
:EndIf
:If h>23:h-24→h
:If h<0:h+24→h
:©------------------------Calc h,mn
:((s)/(60))→r
:m+r→r
:©--------------------Sortie hr,mn,sec
:For i,1,2:Disp "":EndFor
:Disp "heure min sec....: ",h,"h ",m,"mn ",s,"sec"
:©----------------------Sortie hr,mn
:Disp ""
:Disp "heure min décim: ",h,"h ",r,"mn"
:©--------------------------calc hr
:((r)/(60))→r
:h+r→r
:round(r,4)→r
:©-------------------------Sortie hr
:Disp "heure décimale...: ",r,"h"
:For i,1,2:Disp "":EndFor
:Disp "                                         Entrer pour sortir !"
:getKey(1)
:Goto fin
:©--------------------Entrée hr décim
:Lbl hd
:Disp ""
:Request "heure =",h
:Disp ""
:©--------------------Ctrôle hr décim
:While h>360
:  h-360→h
:EndWhile
:©---------------------sépar hr décim
:int(h)→e
:fPart(h)→r
:©-------------------------calc mn
:r*60→m
:©----------------------Sortie hr mn
:For i,1,2:Disp "":EndFor
:Disp "heure...............= ",h,"h"
:Disp ""
:Disp "heure mn.........= ",e,"h ",m,"mn"
:©-----------------------sépar MS
:fPart(m)→s
:int(m)→m
:©----------------------calc sec dixm
:s*60→s
:round(s*0.2)
:©----------------------Sortie DMS
:Disp "heure mn sec...= ",e,"h ",m,"mn ",s,"sec "
:For i,1,2:Disp "":EndFor
:Disp "                                 Entrer pour sortir !"
:getKey(1)
:Lbl fin
:EndPrgm