Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Lazy Man Request
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00631578
Message ID:
00631616
Vues:
24
This message has been marked as a message which has helped to the initial question of the thread.
>Does anybody have a routine written (that they will share) that will take an integer that represents minutes and turn it into a text format for hours/days
>
>Example: 7200 would return 5 Days
> 420 would return 7 Hours
>
>Thanks in advance.
>
>Kirk

Try this:
LPARAMETERS nSeconds
* 86400 = Seconds per day
*  3600 = Seconds per hour
*    60 = Seconds per minute

LOCAL nDays, nHours, nMinutes, cResult

STORE 0 TO nDays, nHours, nMinutes
cResult = ''

* How many days
DO WHILE nSeconds > 86400
	nDays = nDays + 1 
	nSeconds = nSeconds - 86400
ENDDO

* How many hours
DO WHILE nSeconds > 3600
	nHours = nHours + 1 
	nSeconds = nSeconds - 3600 
ENDDO

* How many minutes
DO WHILE nSeconds > 60
	nMinutes = nMinutes + 1 
	nSeconds = nSeconds - 60
ENDDO

IF nDays > 0
	cResult = TRANSFORM(nDays) + ' Days '
ENDIF
IF nHours > 0
	cResult = cResult + TRANSFORM(nHours) + ' Hours '
ENDIF
IF nMinutes > 0
	cResult = cResult + TRANSFORM(nMinutes) + ' Minutes '
ENDIF
IF nSeconds > 0
	cResult = cResult + TRANSFORM(nSeconds) + ' Seconds '
ENDIF

RETURN cResult
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform