Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Divide time
Message
From
27/01/2005 06:01:51
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Divide time
Environment versions
Visual FoxPro:
VFP 5
Database:
Visual FoxPro
Miscellaneous
Thread ID:
00981137
Message ID:
00981137
Views:
46
hi all,
i need help, to divide two times via the code under as..
thisform.text12.value=(thisform.text11.value/thisform.text10.value)*100%
SUM CTOT(plan) - CTOT("00:00:00") to lnSec
* ? PADL(INT(lnSec/3600), 2, "0") + ":" + ;
				PADL(INT((lnSec%3600)/60),2, "0") + ":" + ;
				PADL(lnSec % 60,2, "0")

SUM VAL(LEFT(plan,2))*3600 + ;
	VAL(SUBSTR(plan,4,2))*60 + ;
	VAL(RIGHT(plan,2)) TO lnSec

THISFORM.TEXT10.VALUE= PADL(INT(lnSec/3600), 2, "0") + ":" + ;
				PADL(INT((lnSec%3600)/60),2, "0")  

*				lnCost=thisform.text3.value
*THISFORM.TEXT10.VALUE = ROUND(lnSec/3600*lnCost,2)
SUM CTOT(true) - CTOT("00:00:00") to lnSec
* ? PADL(INT(lnSec/3600), 2, "0") + ":" + ;
				PADL(INT((lnSec%3600)/60),2, "0") + ":" + ;
				PADL(lnSec % 60,2, "0")

SUM VAL(LEFT(true,2))*3600 + ;
	VAL(SUBSTR(true,4,2))*60 + ;
	VAL(RIGHT(true,2)) TO lnSec

THISFORM.TEXT11.VALUE= PADL(INT(lnSec/3600), 2, "0") + ":" + ;
				PADL(INT((lnSec%3600)/60),2, "0")  
thanks.
Next
Reply
Map
View

Click here to load this message in the networking platform