hola tengo un problema con este codigo, necesito sacar la diferencia de horas de dos fechas, sale todo bien pero cuando pongo por ejemplo en la fecha n1 19:00 horas y en la fecha numero 2 20:30 horas, me muestra que hay 2 horas y 30 minutos de diferencia y deberia ser 1 hora y 30 minutos. si alguien me puede ayudar estaria muy agradecido..
este es el codigo
Dim nomfechainicio As Date
Dim nomfechatermino As Date
Dim nomhorainicio As Date
Dim nomhoratermino As Date
Dim dias As Long
Dim horas As Long
Dim minutos As Long
Dim segundos As Long
nomfechatermino = DateTimePicker2.Value.Date
nomfechainicio = DateTimePicker1.Value.Date
nomhorainicio = MaskedTextBox1.Text
nomhoratermino = MaskedTextBox2.Text
nomfechainicio = nomfechainicio & " " & nomhorainicio
nomfechatermino = nomfechatermino & " " & nomhoratermino
segundos = DateDiff("s", nomfechainicio, nomfechatermino)
MessageBox.Show(segundos)
If segundos >= 86400 Then
dias = Val(segundos / 86400)
segundos = segundos Mod 86400
End If
If segundos >= 3600 Then
horas = Val(segundos / 3600)
segundos = segundos Mod 3600
MessageBox.Show(horas)
End If
If segundos >= 60 Then
minutos = Val(segundos / 60)
segundos = segundos Mod 60
MessageBox.Show(segundos)
End If
TextBox5.Text = CStr((dias * 24) + horas) & ":" & CStr(Format(minutos, "00")) & ":" & CStr(segundos)
