diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 4f9b277b3..ab70b76b3 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -7847,7 +7847,7 @@ Partial Class RH_Personal
 
         Dim DiasAgregados As Integer = 0
         Dim FechaFin As Date = fechaInicio
-
+        Dim Contador As Integer = 0
         For x = 2 To diasVacaciones
             Dim day_of_week = CType(FechaFin.DayOfWeek, Integer) + 1
             If day_of_week = diaDescanso Then
@@ -7856,12 +7856,13 @@ Partial Class RH_Personal
             Else
                 FechaFin = FechaFin.AddDays(1)
                 day_of_week = CType(FechaFin.DayOfWeek, Integer) + 1
-                If day_of_week = diaDescanso Then
+                If (diasVacaciones = Contador + 2) AndAlso day_of_week = diaDescanso Then
+                    FechaFin = FechaFin.AddDays(1)
                     DiasAgregados = DiasAgregados + 1
                 End If
 
             End If
-
+            Contador = Contador + 1
         Next
 
         TxtFechaFinVac.Text = FechaFin.ToString