Obtener horas vb.net

[kail521]

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)