esto.:
Código vb:
Ver original'Control horario Sidney
If Label4 >= "17:30" Then
Label13.Caption = "CERRADA"
ElseIf Label4 <= "8:30" Then
Label13.Caption = "CERRADA"
Else
Label13.Caption = "ABIERTA"
End If
'Control horario Madrid
If Label5 >= "17:30" Then
Label14.Caption = "CERRADA"
ElseIf Label5 <= "8:30" Then
Label14.Caption = "CERRADA"
Else
Label14.Caption = "ABIERTA"
End If
'Control horario Francfort
If Label6 >= "17:30" Then
Label15.Caption = "CERRADA"
Else
Label15.Caption = "ABIERTA"
End If
'Control horario Zürich
If Label7 >= "17:30" Then
Label16.Caption = "CERRADA"
Else
Label16.Caption = "ABIERTA"
End If