Define temps_dates()=
Prgm
:Local a,b,i
:Local s,m,h,jr,sm,m1,m3,m6,an
:0→a:0→b:0:0→s:0→m:0→h:0→jr
:0→sm:0→m1:0→m3:0→m6:0→an
:setMode(5,2)
:For i,1,2:Disp "":EndFor
:Disp "Seconde................: 1    Minute..................: 2"
:Disp "Heure....................: 3    Jour......................: 4"
:Disp "Semaine................: 5     Mois....................: 6"
:Disp "Trimestre...............: 7     Semestre..............: 8"
:Disp "                   Année....................: 9"
:For i,1,2:Disp "":EndFor
:getKey(1)
:Request "Votre choix = ",a
:If a≥1 and a≤9 Then
:  Request "Le chiffre",b
:Else
:  Goto fin
:EndIf
:©----------------------redirection
:If a=1:Goto cs
:If a=2:Goto cm
:If a=3:Goto ch
:If a=4:Goto cjr
:If a=5:Goto csm
:If a=6:Goto cm1
:If a=7:Goto cm3
:If a=8:Goto cm6
:If a=9:Goto can
:©----------------------calc seconde
:Lbl cs
:b→s
:© s→s
:((s)/(60))→m
:((s)/(3600))→h
:((s)/(86400))→jr
:((s)/(604800))→sm
:((s)/(18144000))→m1
:((s)/(54432000))→m3
:((s)/(108864000))→m6
:((s)/(217728000))→an
:Goto aff
:©----------------------calc minute
:Lbl cm
:b→m
:m*60→s
:© m→m
:((m)/(60))→h
:((m)/(1440))→jr
:((m)/(10080))→sm
:((m)/(43830))→m1
:((m)/(131490))→m3
:((m)/(262980))→m6
:((m)/(525960))→an
:Goto aff
:©----------------------calc heure
:Lbl ch
:b→h
:h*3600→s
:h*60→m
:© h→h
:((h)/(24))→jr
:((h)/(168))→sm
:((h)/(730))→m1
:((h)/(2190))→m3
:((h)/(4380))→m6
:((h)/(8760))→an
:Goto aff
:©----------------------calc jour
:Lbl cjr
:b→jr
:jr*86400→s
:jr*1440→m
:jr*24→h
:© jr→jr
:((jr)/(7))→sm
:((jr)/(30))→m1
:((jr)/(90))→m3
:((jr)/(180))→m6
:((jr)/(365.25))→an
:Goto aff
:©----------------------calc semaine
:Lbl csm
:b→sm
:sm*604800→s
:sm*10080→m
:sm*168→h
:sm*7→jr
:© sm→sm
:((sm)/(4.285714))→m1
:((sm)/(12.857142))→m3
:((sm)/(25.714284))→m6
:((sm)/(52.142857))→an
:Goto aff
:©----------------------calc mois
:Lbl cm1
:b→m1
:m1*2592000→s
:m1*43200→m
:m1*720→h
:m1*30→jr
:m1*4.285714→sm
:© m1→m1
:((m1)/(3))→m3
:((m1)/(2))→m6
:((m1)/(12))→an
:Goto aff
:©----------------------calc trimestre
:Lbl cm3
:b→m3
:m3*7884000→s
:m3*131400→m
:m3*2175→h
:m3*90→jr
:m3*13.03571425→sm
:m3*3→m1
:© m3→m3
:((m3)/(2))→m6
:((m3)/(90))→an
:Goto aff
:©----------------------calc semestre
:Lbl cm6
:b→m6
:m6*15768000→s
:m6*262800→m
:m6*4350→h
:m6*180→jr
:m6*26.0714285→sm
:m6*6→m1
:m6*2→m3
:© m6→m6
:((m6)/(180))→an
:Goto aff
:©----------------------calc année
:Lbl can
:b→an
:an*31536000→s
:an*525600→m
:an*8760→h
:an*365.25→jr
:an*52.142857→sm
:an*12.166667→m1
:an*4→m3
:an*2→m6
:© an→an
:©Goto aff
:©----------------------affiche
:Lbl aff
:Disp ""
:Disp "Minute",m,"      Seconde",s
:Disp "Heure",h
:Disp "Jour",jr
:Disp "Semaine",sm
:Disp "Mois",m1
:Disp "Trimestre",m3
:Disp "Semestre",m6
:Disp "Année",an
:©----------------------fin
:getKey(1)
:Lbl fin
:EndPrgm