jueves, 20 de marzo de 2014

Saber horas y minutos entre 2 fechas

Para mi caso tengo la fecha y hora separadas.
Fecha1 ="19/03/2014"
hora1 ="6:55:55 PM"
 
La comparación será con la fecha y hora actual.
Dim v_fecha1 As DateTime = Date.Parse(fecha1) + " " + hora1
Dim v_fecha2 As DateTime = Date.Now  'fecha y hora actual

Para saber las horas totales de diferencia:
Dim v_horas As Long = DateDiff(DateInterval.Hour, v_fecha1, v_fecha2)
Para saber los minutos totales de diferencia:
Dim v_minutos As Long = DateDiff(DateInterval.Minute, v_fecha1, v_fecha2)

 
Pero si necesito saber las horas y minutos:
Dim solo_minutos As Integer = v_minutos
Dim solo_horas As Integer = Math.DivRem(solo_minutos, 60, solo_minutos)

Comparte