Reloj fijo

[erbuson]

IMPORTANTE:

No me había dado cuenta de que en esta rutina hay un error garrafal, ya que había dejado como fijo -1 Hora cuando debia indica ser en DateAdd Diferencia


'################################################# ##########
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", Diferencia, LaHora), "ddd hh:mm:ss")
' Después, la misma rutina, efectua el cambio de Abierta/Cerrada
ComoEsta(Indice) = CloseOpen(QueHora(Indice))
End Sub

Pido disculpas