Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Sum hours
Message
From
28/06/2005 02:31:37
 
 
To
27/06/2005 08:14:29
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 8
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01026630
Message ID:
01026930
Views:
16
hi,
thank you.
>
>DO WHILE NOT EOF()
>     m.divi = curbilldata.divi
>     DO WHILE m.divi = curbilldata.divi AND NOT EOF()
>          SKIP
>     ENDDO
>
>
> IF NOT EOF()
>          m.lnCurRec = RECNO()
>          INSERT BEFORE BLANK
><pre>
>&&&i mean instead this part
>m.dae=SecondToHour( TimeToSeconds('34:20') + TimeToSeconds('36:40') + TimeToSeconds('71:10') + TimeToSeconds('66:10'))
>
>
>*****************************************************************
>SUM TimeToSeconds(m1_m)TO lnSec for m.divi = curbilldata.divi
>m.dae=SecondToHour(lnSec)
>
>*
>* I hope you see how much readable this is
>*
>**************************************************************
>
>
>
>          GOTO m.lnCurRec
>           replace m1_m WITH m.dae
>           SKIP &&& i get error
>     ENDIF
>ENDDO
>
>
>>hi ,
>>i mean
>>
>>DO WHILE NOT EOF()
>>     m.divi = curbilldata.divi
>>     DO WHILE m.divi = curbilldata.divi AND NOT EOF()
>>          SKIP
>>     ENDDO
>>
>>
>> IF NOT EOF()
>>          m.lnCurRec = RECNO()
>>          INSERT BEFORE BLANK
>><pre>
>>&&&i mean instead this part
>>m.dae=SecondToHour( TimeToSeconds('34:20') + TimeToSeconds('36:40') + TimeToSeconds('71:10') + TimeToSeconds('66:10'))
>>
>>
>>*****************************************************************
>>          SUM VAL(LEFT(m1_m,2))*3600 + ;
>>    VAL(SUBSTR(m1_m,4,2))*60 + ;
>>    VAL(RIGHT(m1_m,2)) TO lnSec for m.divi = curbilldata.divi
>>m.dae= PADL(INT(lnSec/3600), 6, "0") + ":" + ;
>>      PADL(INT((lnSec%3600)/60),2, "0")   &&
>>**************************************************************
>>
>>
>>
>>          GOTO m.lnCurRec
>>           replace m1_m WITH m.dae
>>           SKIP &&& i get error
>>     ENDIF
>>ENDDO
>>
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform