Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Divide time
Message
De
27/01/2005 14:18:33
 
 
À
27/01/2005 06:40:06
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Versions des environnements
Visual FoxPro:
VFP 5
Database:
Visual FoxPro
Divers
Thread ID:
00981137
Message ID:
00981372
Vues:
29
hi,
thank you so much,it works.
m.qasem
>Hi Mohammed,
>
>as I have told you before: SHOW the time, CALCULATE seconds! Try this:
>local lnSec10,lnSec11
>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
>lnSec10=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
>lnSec11=lnSec
>
>THISFORM.TEXT11.VALUE= PADL(INT(lnSec/3600), 2, "0") + ":" + ;
>				PADL(INT((lnSec%3600)/60),2, "0")
>thisform.text12.value=transform((lnSec11/lnSec10)*100)+'%'
>
>
>>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.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform