Modificación de fecha para validación

¿Entonces de qué hora a qué hora es valido para hoy y de qué hora a qué hora ya se le debe sumar 1?

Saludos. Dam

lLas horas van a depender de la lotería, esas horas las puede encontrar en la validación que pasa la fecha del juego, hay también toma en cuenta cuando es domingo

Este fue el código que usted creo para que tomar en cuentta la lotería y asi poner una fecha del juego o sorteo

 'Por Dam
 Select Case Range("F" & ufilaf)
 Case "2-Loteria Nacional 09:00 PM"
 If Weekday(Range("H" & ufilaf), 2) = 5 Then 'si es domingo
 If Range("I" & ufilaf) < 0.745138888888889 Then
 Range("J" & ufilaf) = Range("H" & ufilaf)
 Else
 'If Range("H" & Ufila) >= 0.745138888888889 Then
 Range("J" & ufilaf) = Range("H" & ufilaf) + 1
 'End If
 End If
 Else
 If Range("I" & ufilaf) < 0.870138888888889 Then
 Range("J" & ufilaf) = Range("H" & ufilaf)
 Else
 'If Range("H" & Ufila) >= 0.870138888888889 Then
 Range("J" & ufilaf) = Range("H" & ufilaf) + 1
 'End If
 End If
 End If
 Case "3-Leidsa Quiniela Pale 08:55 PM"
 If Range("I" & ufilaf) < 0.866666666666667 Then
 Range("J" & ufilaf) = Range("H" & ufilaf)
 Else
 'If Range("H" & Ufila) >= 0.866666666666667 Then
 Range("J" & ufilaf) = Range("H" & ufilaf) + 1
 'End If
 End If
 Case "1-Loteria Nacional 01:30 PM"
 If Range("I" & ufilaf) < 0.557638888888889 Then
 Range("J" & ufilaf) = Range("H" & ufilaf)
 Else
 'If Range("H" & Ufila) >= 0.866666666666667 Then
 Range("J" & ufilaf) = Range("H" & ufilaf) + 1
 'End If
 End If
 End Select
 ufilaf = ufilaf + 1

Cabe destacar que toma en cuenta que si domingo y el tipo de lotería es "1-Lotería Nacional 09:00 PM" evalúa que a las 5:53 PM pasa al otro dia porque los domingos esa lotería es las 6:00 PM.

De aquí puede coger las fechas que me preguntaba y disculpe la aclaración anterior que fue que le responde de mi celular y por eso no le aclare bien.

Si pero actualmente para la "1-Lotería Nacional 01:30 PM", tiene esta validación:

Case "1-Lotería Nacional 01:30 PM"
If Range("I" & ufilaf) < 0.557638888888889 Then
Range("J" & ufilaf) = Range("H" & ufilaf)
Else
'If Range("H" & Ufila) >= 0.866666666666667 Then
Range("J" & ufilaf) = Range("H" & ufilaf) + 1
'End If
End If
End Select

Valida si es menor a "0.557638888888889 " Esto es la 1:23:00 PM, por eso tengo la duda, si se juega después de esta hora, ¿le aumenta un 1. Cuál es el problema?

Saludos. Dam

Que cuando valida se juegue después de las 1:23:00 PM tiene que validar con los jugados para el dia siguiente ya que aunque se juegue hoy es para el sorteo de mañana y como lo esta haciendo ahora lo valido con el dia que se jugo sin importar el dia para cual fue jugado.