Hola compañeros!
Tengo un problemilla, he realizado un reloj con horarios de varias ciudades y tengo el problema que el reloj se ejecuta pero se queda la hora fija, por otro lado le mando ejecutar dependiendo de que hora sea unos cambios de color y texto y me lo realiza pero no siempre, he realizado varios relojes y jamas me han dado problemas y ahora o estoy muy espeso y ciego pues lo habre mirado tantas veces que no veo los errores. ¿Podriasis echarme una manita?
Un saludo
Aqui os posteo el codigo .:
Código vb:
Ver originalOption Explicit
Dim Londres As Date
Dim Nueva_York As Date
Dim Tokyo As Date
Dim Sidney As Date
Dim Madrid As Date
Dim Francfort As Date
Dim Zurich As Date
Dim Wellington As Date
Dim Toronto As Date
Dim Horario As Date
Dim dia As String
Dim DifLondres As Date
Dim DifNueva_York As Date
Dim DifTokyo As Date
Dim DifSidney As Date
Dim DifWellington As Date
Dim DifToronto As Date
'Funcion para cambiar el color del texto
'###########################################################
Private Sub Label10_Change()
If Label10.Caption = "ABIERTA" Then
Label10.ForeColor = vbGreen
ElseIf Label10.Caption = "CERRADA" Then
Label10.ForeColor = vbRed
Else
Label10.ForeColor = vbBlack
End If
End Sub