Problema de cambio de cuenta regresiva de VB

Opciones explícitas

Const TIMER_AM As Date = "12:00:00"

Const TIMER_PM As Date = "18:00:00"

Const TIMER_OTHER As Date = "6:00:00" 'Al menos esa es la supuesta hora de inicio del turno de la mañana, ¿verdad?

'De hecho, es mejor pasar las constantes anteriores como parámetros a las siguientes funciones, lo que facilita el mantenimiento de su programa. No conozco sus requisitos específicos aquí, pero solo proporciono un. ejemplo de una idea

Función privada GetTime() como cadena

Dim dt como fecha

Dim n As Long

Seleccionar tiempo de caso

Caso TIMER_OTHER A TIMER_AM

dt = TIMER_AM

Caso TIMER_AM A TIMER_PM

dt = TIMER_PM

Caso Else

GetTime = "Fuera de horario"

Función de salida

Selección final

n = DateDiff("s", Hora, dt )

GetTime = "Fuera de horario hasta:" & Format(TimeSerial(0, 0, n), "hh:mm:ss")

Finalizar función

Private Sub Form_Load()

Etiqueta1 = GetTime

Timer1.Enabled = True

Timer1.Interval = 1000

End Sub

Sub Timer1_Timer privado ()

Etiqueta1 = GetTime

Fin Sub

Sub Timer1_Timer privado()

Etiqueta1 = GetTime

Fin Sub

Fin de Función