horarios mundiales

[XYON126]

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:

Private 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
 

[pkj]

He tenido que rehacerlo casi todo porque no conseguia que el tuyo funcionase.

Código vb:

Private Sub Form_Load()
 
Dim Londres As String
Dim Nueva_York As String
Dim Tokyo As String
Dim Sidney As String
Dim Madrid As String
Dim Francfort As String
Dim Zurich As String
Dim Wellington As String
Dim Toronto As String
 
'Diferencia horaria en menos
Const DifLondres As Integer = -1
Const DifNueva_York As Integer = -6
Const DifToronto As Integer = -6
 
'Diferencia horaria en más
Const DifTokyo As Integer = 7
Const DifSidney As Integer = 8
Const DifWellington As Integer = 10
Dim Hora As Integer
 
Hora = Hour(Now) + DifLondres
If Hora >= 24 Then Hora = Hora - 24
Londres = Hora & ":" & Minute(Now)
 
Hora = Hour(Now) + DifNueva_York
If Hora >= 24 Then Hora = Hora - 24
Nueva_York = Hora & ":" & Minute(Now)
 
Hora = Hour(Now) + DifTokyo
If Hora >= 24 Then Hora = Hora - 24
Tokyo = Hora & ":" & Minute(Now)
 
Hora = Hour(Now) + DifSidney
If Hora >= 24 Then Hora = Hora - 24
Sidney = Hora & ":" & Minute(Now)
 
Hora = Hour(Now)
Madrid = Hora & ":" & Minute(Now)
Hora = Hour(Now)
 
Francfort = Hora & ":" & Minute(Now)
Hora = Hour(Now)
Zurich = Hora & ":" & Minute(Now)
 
Hora = Hour(Now) + DifWellington
If Hora >= 24 Then Hora = Hora - 24
Wellington = Hora & ":" & Minute(Now)
 
Hora = Hour(Now) + DifToronto
If Hora >= 24 Then Hora = Hora - 24
Toronto = Hora & ":" & Minute(Now)
 
 
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
 

Parece que va bien. He comprobado las horas de toronto y wellinton y las muestra bien.

Saludos

[XYON126]

hola pkj!

Muchas gracias por la solucion.


Un saludo