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

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

Function HMSDif (tDateTime1, tDateTime2)

   
Local cRet, nS

    cRet = ""

 

    If! Vartype(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