Reloj fijo

[erbuson]

Hola:

Puedes poner los And que quieras siempre que la comparación tenga un sentido, sin embargo en este caso se me ocurre que lo mas simple que puedes hacer es algo así ajustando debidamente las variables.

Public Function CloseOpen(HoraActual As Date) As String
If HoraActual > CDate("8:29:59") And HoraActual < CDate("17:29:59") Then
CloseOpen = "ABIERTA"
Else
CloseOpen = "CERRADA"
End If

'--------
If Dia = "Sabado" Or Dia = "Domingo" Then CloseOpen = "CERRADA"
'--------
End Function

Ya que de este modo independientemente de que por la Hora este abierta, si es Sabado o Domingo siempre la dara CERRADA

Saludos