y finalmente esto .:
Código vb:
Ver original'Control horario Wellington
If Label8 <= "17:30" Then
Label17.Caption = "CERRADA"
ElseIf Label8 >= "8:30" Then
Label17.Caption = "CERRADA"
Else
Label17.Caption = "ABIERTA"
End If
'Control horario Toronto
If Label9 >= "17:30" Then
Label18.Caption = "CERRADA"
ElseIf Label8 >= "8:30" Then
Label18.Caption = "CERRADA"
Else
Label18.Caption = "ABIERTA"
End If
End Sub