Compras códigos no se ve al asignar alias

RH/RepChecadorPreAsistencia.aspx.vb

@@ -1686,6 +1686,8 @@ Partial Class RH_RepChecadorPreAsistencia
             Dim separador As Char()
             Dim arrayComands As String()
 
+            Dim Fecha As Date = FechaInicioPeriodo
+
             For x As Integer = 3 To 33
 
                 NombreLink = "LnkFecha" & CountFecha
@@ -1695,6 +1697,10 @@ Partial Class RH_RepChecadorPreAsistencia
                 arrayComands = lnkLink.Text.Split(separador)
                 Instruccion = arrayComands(0)
 
+                If Fecha >= NowADS() Then
+                    lnkLink.Visible = False
+                End If
+
                 If arrayComands.Length > 1 Then Filtro = arrayComands(1) Else Filtro = ""
 
                 lnkLink.CommandArgument = $"{lnkLink.Text}|{e.Row.DataKey("CvePersonal")}|{e.Row.DataKey("NombreCompleto")}"
@@ -1827,6 +1833,7 @@ Partial Class RH_RepChecadorPreAsistencia
                     AddHandler lnkLink.Click, AddressOf Me.DetalleDia_Click
                 End If
                 CountFecha = CountFecha + 1
+                Fecha = Fecha.AddDays(1)
             Next
 
             If ContadorFaltas > 0 Then