ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Obtener diferencia en HHMMSS   



L'auteur

guille1661
Argentine Argentine
Membre Simple
# 0000000595
enregistré le 13/09/2005
69 ans
Guillermo
1661 Bella Vista, Buenos Aires
de la société G & G Computacion
Fiche personnelle


Note des membres
pas de note

Contributions > 01 - PRG : Programmation > Conversions

Obtener diferencia en HHMMSS
# 0000000239
ajouté le 13/09/2005 23:29:14 et modifié le 13/09/2005
consulté 4650 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
VFP 5.0

Description

* Este truco es bastante útil ... Calcular el número de horas, minutos y segundos
* entre dos valor DateTime.


Code source :

* Este truco es bastante útil ... Calcular el número de horas, minutos y segundos
* entre dos valor DateTime.

? HMSDif(Datetime(), Dtot(Date()))

Function HMSDif (tDateTime1, tDateTime2)

    Local cRet, nS
    cRet = ""

    IfVartype(tDateTime1)= "T" Or !Vartype(tDateTime2)= "T"
         cRet = "E"
    Endif

    If Empty(cRet)
        If tDateTime2 > tDateTime1
              nS = tDateTime2 - tDateTime1
        Else
             nS = tDateTime1 - tDateTime2
        Endif

        nS = Int(nS)
        cTime = Transform(Int(nS/3600),"9999")+":"+ ;
         Transform(Mod(Int(nS/60),60),"99")+":"+ ;
         Transform(Mod(nS,60)," 99")
        Return cTime
    Else
         =Messagebox("Los valores deben ser DateTime")
          Return ""
    Endif
Endfunc

Commentaires
le 14/09/2005, FredA a écrit :
Pour les non hispaniques :
cette fonction retourne sous forme de chaine de caractère la différence exprimée en heures:minutes: secondes entre deux datetime


Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3