Reloj fijo

[erbuson]

Hola de nuevo Xyon:

Efectivamente, acabo de comprobar lo que te comentaba del horario:

¿ Que tal te parece esta idea ?

Código VB:

Private Sub Form_Load()
  HoraActual
End Sub
 
Private Sub HoraActual()
  Dim Ahora As Date
  Ahora = Now
  Label1 = Format(DateAdd("h", -1, Ahora), "ddd hh:mm") 'Londres
  Label2 = Format(DateAdd("h", -6, Ahora), "ddd hh:mm") 'NuevaYork
  Label3 = Format(DateAdd("h", 7, Ahora), "ddd hh:mm")  'Tokyo
  Label4 = Format(DateAdd("h", 8, Ahora), "ddd hh:mm")  'Sidney
  Label5 = Format(DateAdd("h", 0, Ahora), "ddd hh:mm")  'Madrid
  Label6 = Format(DateAdd("h", 0, Ahora), "ddd hh:mm")  'Francfort
  Label7 = Format(DateAdd("h", 0, Ahora), "ddd hh:mm")  'Zurich
  Label8 = Format(DateAdd("h", 10, Ahora), "ddd hh:mm") 'Wellington
  Label9 = Format(DateAdd("h", -6, Ahora), "ddd hh:mm") 'Toronto
End Sub
 

Saludos

Por cierto, acabo de probar lo de insertar código en el foro y a mi personalmente no me aparece ninguna limitación de lineas.