pues no aún queda esto .:
Código vb:
Ver original'Control horario Londres
If Label1 >= "17:30" Then
Label10.Caption = "CERRADA"
ElseIf Label1 <= "8:30" Then
Label10.Caption = "CERRADA"
Else
Label10.Caption = "ABIERTA"
End If
'Control horario New York
If Label2 <= "17:30" Then
Label11.Caption = "ABIERTA"
ElseIf Label2 >= "8:30" Then
Label11.Caption = "ABIERTA"
ElseIf dia = "sabado" Then
Label11.Caption = "CERRADA"
ElseIf dia = "domingo" Then
Label11.Caption = "CERRADA"
Else
Label11.Caption = "CERRADA"
End If
'Control horario Tokyo
If Label3 >= "17:30" Then
Label12.Caption = "CERRADA"
ElseIf Label3 <= "8:30" Then
Label12.Caption = "CERRADA"
Else
Label12.Caption = "ABIERTA"
End If