Calular horas y minutos trascurridos

[dubiweb]

tengo un codigo que me ayuda a saber cuanto tiempo ha trascurrido de una hora de ingreso a una hora de salida y es este

Try
Dim TSpan As TimeSpan
Dim DTInicio As DateTime
Dim DtFinal As DateTime

DTInicio = DateTime.Parse(Me.XpTextBox10.Text)
DtFinal = DateTime.Parse(Me.XpTextBox11.Text)

TSpan = DtFinal.Subtract(DTInicio).Duration

Me.XpTextBox5.Text = TSpan.Hours.ToString
Me.XpTextBox17.Text = TSpan.Minutes.ToString


If Me.XpTextBox17.Text > Val(0) Then
Dim Horra As String
Horra = Val(Me.XpTextBox5.Text)

REM Establecer Cobro
Dim Cobro As Double
Cobro = Val((Val(Horra) * Val(Me.XpTextBox8.Text)) + Val(Me.XpTextBox8.Text))

Me.XpTextBox12.Text = Val(Cobro)
Me.MyXPButton4.Focus()

ElseIf Me.XpTextBox17.Text < Val(0) Or Me.XpTextBox5.Text > Val(0) Then
Dim Horra As String
Horra = Val(Me.XpTextBox5.Text)

REM Establecer Cobro
Dim Cobros As Double
Cobros = Val(Val(Horra) * Val(Me.XpTextBox8.Text))

Me.XpTextBox12.Text = Val(Cobros)
Me.MyXPButton4.Focus()

ElseIf Me.XpTextBox5.Text = Val(0) And Me.XpTextBox17.Text = Val(0) Then
Me.XpTextBox12.Text = Val(0)
Me.MyXPButton4.Focus()
End If
Catch ex As Exception
MsgBox("Error " & ex.ToString, MsgBoxStyle.Critical, ".::: SPK9000 :::.")
End Try


puedo sacar las hora y minutos transcurridos pero el problema es cuando cambia en dia se me pone loco y no calula bien la horas y minutos transcuridos me pueden dar una mano de como mejorarlo

[skel363]

Aqui tienes una función que te entrga la diferencia en minutos entre dos fechas, ya teniendo los minutos es facil la conversion a HH:MM puedes pasarlos como string o como datetime directamente...

Código:

 public static double ObtenerDiferenciaEnMinutos(string fecha1, string fecha2)
{
            DateTime dt1 = DateTime.Parse(fecha1);
            DateTime dt2 = DateTime.Parse(fecha2);
            TimeSpan span = dt2 - dt1;

            return span.TotalMinutes;
}

Espero te sirva

[dubiweb]

gracias problema resuleto