[Func] Ajuster un temps en secondes
Posté : lun. 10 août 2009 14:52
Bonjour A tous. Suite a plusieurs opérations, je suis amené à lire dans un .ini un temps en secondes.
Mais il est quelquefois indigeste de lire 17654 secondes. J'ai donc creé une petite fonction qui existe peut etre dejà.
Exemple:
Mais il est quelquefois indigeste de lire 17654 secondes. J'ai donc creé une petite fonction qui existe peut etre dejà.
Exemple:
► Afficher le texteexemple
Code : Tout sélectionner
Func _ajuster_temps($func_temps)
;$func_temps en secondes
$func_temps = Number($func_temps)
If $func_temps = 1 then
Return "1 seconde"
ElseIf $func_temps < 60 then
Return $func_temps & " secondes"
ElseIf $func_temps = 60 then
Return "1 minute"
ElseIf $func_temps < 3600 And Mod($func_temps,60) = 0 then
Return Int($func_temps/60) & " minutes"
ElseIf $func_temps < 3600 then
Return Int($func_temps/60) & " minutes et "&Mod($func_temps,60) & " secondes"
ElseIf $func_temps = 3600 then
Return "1 heure"
ElseIf $func_temps < 86400 And Mod($func_temps,60) = 0 And Mod($func_temps,3600) = 0 then
Return Int($func_temps/3600) &" heures"
ElseIf $func_temps < 86400 And Mod($func_temps,60) = 0 then
Return Int($func_temps/3600) &" heures et "& Mod(Int($func_temps/60),60) & " minutes"
ElseIf $func_temps < 86400 then
Return Int($func_temps/3600) &" heures, "& Mod(Int($func_temps/60),60) & " minutes et "&Mod($func_temps,60) & " secondes"
ElseIf $func_temps = 86400 then
Return "1 jour"
ElseIf $func_temps < 86400*24 then
Return Int($func_temps/86400) &" jours, "&Mod(Int($func_temps/3600),24) &" heures ,"& Mod(Int($func_temps/60),60) & " minutes et "&Mod($func_temps,60) & " secondes"
Else
Return $func_temps
EndIf
EndFunc