Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Sum hours
Message
De
27/06/2005 08:14:29
 
 
À
27/06/2005 07:42:10
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:
01026666
Vues:
19
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