Displaying Different Times.......

I want a simple disaply on a form that can display the times in major cities throughout the world.........

I used this, but I noticed it wasn't working properly >

Public Sub getTimes()

NewYork = Time - #4:00:00 AM#
FrankFurt = Time + #2:00:00 AM#
Tokyo = Time + #9:00:00 AM#
Text1.Text = Format(Time, "Long Time")


Text2.Text = Format(NewYork, "Long Time")

Text3.Text = Format(FrankFurt, "Long Time")

Text4.Text = Format(Tokyo, "Long Time")
End Sub




i.e., where Time is just the time on my computer (GMT), so new York is 4 hrs behind, but I think I am subtracting 4 o'clock, not 4 hrs.......how can I just take away 4 hrs........? etc for the rest.

Thanx for any help

Steven

An example to subtract 4 hrs from current time:

VB Code:

Private Sub Command1_Click()
Dim newtime As Date
newtime = DateAdd("h", -4, Now)
Debug.Print FormatDateTime(newtime, vbLongTime)
End Sub

You can use DateAdd function. Example:

Dim myTime As Date
Dim NewYorkTime As Date

myTime = Now()
NewYorkTime = DateAdd("h", -4, myTime)