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

问题描述:

VB转换世界时间.求有源码的朋友 或高手用最快的速度实现
如:美国时间 比中国时间晚15小时.
也就是说如果现在北京时间是:4月5号 04:36:52
那么美国时间将是:4月4号 13:37:22
就是将北京时间减去15小时的.求高手帮助一段VB代码
最简单的思路但无法动手:
timer2:
text1.text = now
text2.text = text1 - 15

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