Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Converting seconds to hh:mm:ss
Message
De
01/07/1998 20:31:46
 
 
À
30/06/1998 17:24:54
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00113159
Message ID:
00113620
Vues:
34
>Does any one know of a function tha converts seconds to hh:mm:ss format. For example: 110 seconds would be 00:01:50.
>
>TIA,

Hi Bill, this should be pretty fast. It's simple and uses no slow maths functions, like ^ and LOG

*!***********************************************
*!
*! Function: S2HMS
*!
*!***********************************************
FUNCTION S2HMS
* convert seconds to HHH..:MM:SS
LPARAMETER tnSec
* hours wont display unless > 0
LOCAL nHr, cHr, cMin, nSec

* hours
nHr= INT(m.tnSec/3600)
IF m.nHr = 0
cHr= ""
ELSE
cHr= LTRIM(STR(m.nHr)) + ":"
ENDIF

* minutes
nSec= m.tnSec % 3600
cMin= TRANSFORM(INT(m.nSec/60), "@L 99")

* the rest
RETURN m.cHr + m.cMin + ":" + TRANSFORM(m.nSec % 60, "@L 99")
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform