Foros del Web - Ver Mensaje Individual

lokoman · #2 (**permalink**) 19/05/2010, 12:04

Hola!!
Que te parece este codigo:

Código vb:

Ver originalDim Fecha1 As Date, Fecha2 As Date
    Fecha1 = "16/05/2010 12:00:00"
    Fecha2 = "19/05/2010 14:05:03"
    
    MsgBox DateDiff("d", Fecha1, Fecha2) & " dias " _
                    & Val(Format(TimeValue(Fecha2), "hh")) - Val(Format(TimeValue(Fecha1), "hh")) & " horas " _
                    & Val(Format(TimeValue(Fecha2), "nn")) - Val(Format(TimeValue(Fecha1), "nn")) & " minutos " _
                    & Val(Format(TimeValue(Fecha2), "ss")) - Val(Format(TimeValue(Fecha1), "ss")) & " segundos"

!!