Hola compañeros!
Estoy haciendome un reloj que me da la hora de varias ciudades del mundo, Tokyo, Sidney, New York y mi problema es que cuando me tiene que dar la hora de alguna ciudad donde se aumenta a un dia en vez de darme la hora sola me da este resultado "31-dic-1899 00:35:00" si son las 24h 35 min. claro, os adjunto el codigo ¿como puedo solucionarlo?
Un saludo
Código vb:
Ver originalPrivate Sub Form_Load()
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 DifLondres As Date
Dim DifNueva_York As Date
Dim DifTokyo As Date
Dim DifSidney As Date
Dim DifWellington As Date
Dim DifToronto As Date
'Diferencia horaria en menos
DifLondres = "1:00"
DifNueva_York = "6:00"
DifToronto = "6:00"
'Diferencia horaria en más
DifTokyo = "7:00"
DifSidney = "8:00"
DifWellington = "10:00"
Horario = Format(Time, "hh:mm")
Londres = Horario - DifLondres
Nueva_York = Horario - DifNueva_York
Tokyo = Horario + DifTokyo
Sidney = Horario + DifSidney
Madrid = Horario
Francfort = Horario
Zurich = Horario
Wellington = Horario + DifWellington
Toronto = Horario - DifToronto
Label1.Caption = Londres
Label2.Caption = Nueva_York
Label3.Caption = Tokyo
Label4.Caption = Sidney
Label5.Caption = Madrid
Label6.Caption = Francfort
Label7.Caption = Zurich
Label8.Caption = Wellington
Label9.Caption = Toronto
End Sub