Cuarto..
Código vb:
Ver originalPrivate Sub Form_Load()
'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")
dia = Format(Date, "dddd")
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 = Format(Londres, "hh:mm")
Label2.Caption = Format(Nueva_York, "hh:mm")
Label3.Caption = Format(Tokyo, "hh:mm")
Label4.Caption = Format(Sidney, "hh:mm")
Label5.Caption = Format(Madrid, "hh:mm")
Label6.Caption = Format(Francfort, "hh:mm")
Label7.Caption = Format(Zurich, "hh:mm")
Label8.Caption = Format(Wellington, "hh:mm")
Label9.Caption = Format(Toronto, "hh:mm")