Question

VB转换世界时间。求有源码的朋友 或高手用最快的速度实现

如：美国时间 比中国时间晚15小时。
也就是说如果现在北京时间是：4月5号 04:36:52
那么美国时间将是： 4月4号 13:37:22
就是将北京时间减去15小时的。 求高手帮助一段VB代码

最简单的思路但无法动手：
timer2:
text1.text = now
text2.text = text1 - 15 ?????

Answer 1

Private Sub Form_Click()
    Dim d, t
    d = Now: t = 15
    Print "北京时间 ： &"; d, "美国时间：" & d - t / 24
End Sub

Answer 2

Private Sub Command1_Click()
Text1.Text = Now
Text2.Text = DateAdd("h", -15, Text1.Text)
End Sub