Calculo de Horas
Publicado por HAF (178 intervenciones) el 10/03/2006 14:36:24
Necesitaba calcular el tiempo transcurrido en horas,minutos y segundos transcurridos entre dos fechas .
Coloco aqui la función para quien le pueda interesar:
Dim hora1, hora2 As Date
Dim totaltiempo As TimeSpan
hora2 = rs.fields("fecha").value ' es un campo de fecha pero pueden probarlo con now
hora1 = rs.fields("fecha_inicio").value ' es un campo de fecha
totaltiempo = hora2.Subtract(hora1)
messagebox.show(totaltiempo.Duration.ToString)
Coloco aqui la función para quien le pueda interesar:
Dim hora1, hora2 As Date
Dim totaltiempo As TimeSpan
hora2 = rs.fields("fecha").value ' es un campo de fecha pero pueden probarlo con now
hora1 = rs.fields("fecha_inicio").value ' es un campo de fecha
totaltiempo = hora2.Subtract(hora1)
messagebox.show(totaltiempo.Duration.ToString)
Valora esta pregunta
0