Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Round Time To Nearest 15 Minutes
Message
De
01/06/2016 03:57:21
 
 
À
31/05/2016 21:15:10
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Network:
Windows Server 2008 R2
Database:
MS SQL Server
Application:
Desktop
Divers
Thread ID:
01636901
Message ID:
01636905
Vues:
71
>I've been struggling with rounding time to the nearest 15. Any suggestions? I figured I need to convert the minutes to seconds first but can figure out the equation to round to the nearest 15 minutes.
>
>TIA
>Jeff


Here is another one, just for 15 min intervals:
LPARAMETERS ttDateTime as Datetime

LOCAL ltDateTime as Datetime, lnMinDT as Integer
lnMinDT		= MINUTE(ttDateTime)
lnMinDiff	= ICASE( BETWEEN(lnMinDT,0,14), 15-lnMinDT ;
	, BETWEEN(lnMinDT,15,29), 30-lnMinDT ;
	, BETWEEN(lnMinDT,30,44), 45-lnMinDT ;
	, 60-lnMinDT)
ltDateTime	= ttDateTime + lnMinDiff*60 - SEC(ttDateTime)

RETURN ltDateTime
Fernando D. Bozzo
Madrid / Spain
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform