Hola erbuson!
Como bien dices "esperas no confundirme" desde luego confundirme no pero ahora me toca digerirlo bien y comprender lo que has posteado. Las Arrays que has creado son Date o Integer pues lo he probado y me da en este trozo de codigo el error
"error de copilacion" El tipo de argumento de ByRef no coincide. y me apunta a esta parte de codigo.:
Código vb:
Ver original'################################################# ##########
Private Sub PonerHora(Indice As Integer, LaHora As Date, Diferencia As Integer)
' Pone la Hora en la Etiqueta correspondiente a Indice
QueHora(Indice) = Format(DateAdd("h", -1, LaHora), "ddd hh:mm:ss")
' Después, la misma rutina, efectua el cambio de Abierta/Cerrada
ComoEsta(Indice) = CloseOpen(QueHora(Indice))
End Sub
por otro lado veo que en esta linea de codigo recortas el nombre ¿Porque? lo pregunto por desconocimiento.
Código vb:
Ver originalIf Dia = "sáb" Or Dia = "dom" Then CloseOpen = "CERRADA"
Un saludo