Cat Turno valida que la jornada no sea de mas de 13 horas

RH/CatTurno.aspx.vb

@@ -41,14 +41,26 @@ Partial Class RH_CatTurno
     End Sub
 
     Private Sub BtnAgregarTurno_Click(sender As Object, e As EventArgs) Handles BtnAgregarTurno.Click
+
+        Dim ComidaDe As String = If(TxtComidade.Text.Trim = "", "00:00:00", TxtComidade.Text.Trim)
+        Dim ComidaA As String = If(TxtComidaA.Text.Trim = "", "00:00:00", TxtComidaA.Text.Trim)
+
+
+        Dim horaInicios As String = If(TxtHorarioDe.Text.Trim = "", "00:00:00", TxtHorarioDe.Text.Trim)
+        Dim horaSalidaS As String = If(TxtHorarioA.Text.Trim = "", "00:00:00", TxtHorarioA.Text.Trim)
+
+        Dim horaInicio As TimeSpan = TimeSpan.Parse(horaInicios)
+        Dim horaSalida As TimeSpan = TimeSpan.Parse(horaSalidaS)
+
+        If Not validaHorasTurno(horaInicio, horaSalida) Then
+            Exit Sub
+        End If
+        Exit Sub
+
         Using ObjRH As New ClsRH
             Dim Estatus As Boolean = False
             Dim comida As Integer = If(chkComida.Checked, 1, 0)
 
-            Dim ComidaDe As String = If(TxtComidade.Text.Trim = "", "00:00:00", TxtComidade.Text.Trim)
-            Dim ComidaA As String = If(TxtComidaA.Text.Trim = "", "00:00:00", TxtComidaA.Text.Trim)
-
-
             If ChkEstatus.Checked Then Estatus = True
             If HdnModalidad.Value = "A" Then
                 If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(),
@@ -72,6 +84,25 @@ Partial Class RH_CatTurno
 
     End Sub
 
+    Private Function validaHorasTurno(horaInicio As TimeSpan, horaSalida As TimeSpan) As Boolean
+
+        If horaInicio > horaSalida Then
+            horaSalida = horaSalida.Add(TimeSpan.FromDays(1))
+        End If
+
+
+        Dim diferencia As TimeSpan = horaSalida - horaInicio
+
+        If diferencia.TotalHours > 13 Then
+            Alert("Las horas de entrada y salida no son validas. El rango de horas supera las 13 horas.", TipoMensaje.MsgAdvertencia)
+            Return False
+        End If
+
+
+        Return True
+
+    End Function
+
     Public Sub Edit_Click(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)