Private Sub DimeHoraConducirOtraVez(hdescanso As Int) As String
Dim Hr1,Hr2, Hf As Long
Dim sh As String
DateTime.TimeFormat = "HH:mm"
Hr1 = DateTime.TimeParse(EdtFinal.Text)
Hr2 = DateTime.TimeParse("00:"&hdescanso)
Hf = Hr1 + Hr2
' Log(DateTime.GetHour(Hr1)&" + "&DateTime.GetHour(Hr2))
' Log("Hora suma hr1 + hr2: "&DateTime.Time(Hf))
Dim HoraArreglada, MinutoArreglado As String
HoraArreglada = DateTime.GetHour(Hf)
MinutoArreglado = DateTime.GetMinute(Hf)
If HoraArreglada.Length = 1 Then HoraArreglada = "0"&DateTime.GetHour(Hf)
If MinutoArreglado.Length = 1 Then MinutoArreglado = "0"&DateTime.GetMinute(Hf)
sh = HoraArreglada &":"& MinutoArreglado
Return sh
End Sub