Reloj fijo

[erbuson]

Hola Xyon:

Si este es todo el código, evidentemente el problema esta en que para cambiar el valor de los labels, SOLO lo hace en el Form_Load y como bien sabes esto solamente ocurre en cuanto se carga el formulario.

Te hace falta el MOTOR que las hace cambiar.

Personalmente pienso que deberías crear una rutina que te cambie los labels, por ejemplo cambiando el nombre de Form_Load por HoraActual, ya que el código que veo incluido en el mismo es el que necesitas, despues cambias el siguiente código:

Deberás incluir un Timer con el intervalo que desees ajustar, cada minuto, cada medio minuto, etc, tu mismo y supongamos que le llamas TimerHora

Private Sub Form_Load()
HoraActual
TimerHora.Enabled = True
End

Después en el en el evento

Private Sub TimerHora_Timer()
HoraActual
End Sub

De este modo debería cambiarte cuando tu decidas los labels de Hora.

Una duda, que se me ocurre así, sin analizar demasiado es el hecho de que por la diferencia horaria, tal vez pueda darse, ya te digo que no me he entretenido en comprobarlo que sea el mismo Dia en todas los poblaciones.

De ser así la comparación Sabado/Domingo deberías condicionarla en base a cada hora local.

Saludos