Reloj fijo

[erbuson]

Hola, si por lo que entiendo el condicionante es para todos el mismo, se me ocurre que deberías hacer también un función reutilizable a la que mandes la hora y te devuelva el título de ABIERTA o CERRADA

Algo así como, (voy pensando a medida que escribo y solo es para dar una idea, se aceptan sugerencias)

Suponiendo que Label18 es HoraToronto, se podria tener una funcion tal que así:

Function CloseOpen(HoraActual As String) As String
If HoraActual >= "08:30" And HoraActual <= "17:30" Then
CloseOpen = "ABIERTA"
Else
CloseOpen = "CERRADA"
End If
End Function

A la que podrías llamar Label18.Caption = CloseOpen(HoraToronto)

Es una idea para simplificar el código.

Saludos

DE TODOS MODOS NO ME GUSTA EL TIPO DE DATOS STRING YA QUE SEGURISIMO QUE HAY ERRORES DE COMPARACION YA QUE EN STRING "17:30" ES MENOR QUE "8:30" PERO MAYOR QUE "08:30" SERIA MEJOR EMPLEAR TIPOS DATE