Cita:
Iniciado por erbuson Hola Xyon:
Creas un Label y le pones de nombre QueHora y después vas a la propiedad Index de QueHora y le pones 0, en este momento verás que el nombre del label en la ventana de porpiedades se convierte en QueHora(0), lo Copias y Pegas automaticamente vas a tener el QueHora(1), y así hasta el QueHora(8)
Haces lo mismo con un grupo de labels llamado ComoEsta(0) hasta ComoEsta(8) y ya tienes los labels, la gran ventaja de esto es que puedes acceder a ellos dentro de un bucle por su propiedad Index.
Saludos y comenta las dudas.
Hola erbuson!
Una consulta, quiero añadir un nuevo grupo (QueHora+ComoEsta) que el horario es el mismo de Madrid pero su apertura y cierre es diferente al resto es especifico de él, he añadido este codigo en la función CloseOpen como creia que habia yo entendido y no me funciona ¿Porque, donde esta el error?
Nuevo
Código vb:
Ver original'Funcion para determinar Abierta/Cerrada
'################################################# ##########
' Ha sido modificada para recibir el Caption del Label que muestra el día y hora
Public Function CloseOpen(LabelHora As Label) As String
Dim Hora As Date, Dia As String
Hora = CDate(Right$(LabelHora.Caption, 8))
Dia = Left$(LabelHora.Caption, 3)
If Hora > CDate("8:29:59") And Hora < CDate("17:29:59") Then
CloseOpen = "ABIERTA"
Else
CloseOpen = "CERRADA"
End If
If Dia = "sáb" Or Dia = "dom" Then CloseOpen = "CERRADA"
If Dia = "vie" And Hora >= CDate("21:55:59") Then
ComoEsta(9) = "CERRADA"
ElseIf Dia = "dom" And Hora >= CDate("20:48:59") Then
ComoEsta(9) = "ABIERTA"
End If
End Function
Las lineas que he añadido son de la 14 a la 17
Un saludo y gracias por adelantado.