Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Sum hours
Message
De
28/06/2005 02:31:37
 
 
À
27/06/2005 08:14:29
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
Visual FoxPro:
VFP 8
Database:
Visual FoxPro
Divers
Thread ID:
01026630
Message ID:
01026930
Vues:
15
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
>>
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform