VB中是否提供了时区变换的方法?代码如何写? 如题,小弟想用VB编写时区变换的代码,哪位大侠帮帮忙,谢谢。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type Private Sub Form_Load() Dim LocalTime As SYSTEMTIME Dim SysTime As SYSTEMTIME '必须设为True,否则无法显示下面打印的字符 Me.AutoRedraw = True '取得但前时区的时间 GetLocalTime LocalTime '取得系统的时间。即格林尼治时间。 GetSystemTime SysTime Me.Print Me.Print "当地日期:" & LocalTime.wYear; "年" & LocalTime.wMonth & "月" & LocalTime.wDay & "日" Me.Print "当地时间:" & LocalTime.wHour & ":" & LocalTime.wMinute & ":" & LocalTime.wSecond Me.Print "格林尼治日期:" & SysTime.wYear; "年" & SysTime.wMonth & "月" & SysTime.wDay & "日" Me.Print "格林尼治时间:" & SysTime.wHour & ":" & SysTime.wMinute & ":" & SysTime.wSecond End Sub 请教 VB 定义数组的问题 。 想用驱动器列表框来选择我想进入某个盘。应该怎样写? ***** 在哪里可以查询或者得到所有CSDN的Blog的URL地址啊 ***** sql查询语句的写法 关于输入法的问题 定义一个全局函数该如何定义?只是一个执行过程的函数?马上给分!! 该如何只留下图像中红色的像素 指针移动的问题 VB错误3246救解!!!!!谢谢 ▁▂▃▄▅▆▇█▉靠,分也不要了!俺想出国镀金!不要说我卖国哟,哥们还是要杀回马枪报国的!各位支招! VB 窗体和Timer控件都有BUG!!! 大家除了这里,还去哪里呀,求几个比较好的VB论坛
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type Private Sub Form_Load()
Dim LocalTime As SYSTEMTIME
Dim SysTime As SYSTEMTIME
'必须设为True,否则无法显示下面打印的字符
Me.AutoRedraw = True
'取得但前时区的时间
GetLocalTime LocalTime
'取得系统的时间。即格林尼治时间。
GetSystemTime SysTime
Me.Print
Me.Print "当地日期:" & LocalTime.wYear; "年" & LocalTime.wMonth & "月" & LocalTime.wDay & "日"
Me.Print "当地时间:" & LocalTime.wHour & ":" & LocalTime.wMinute & ":" & LocalTime.wSecond
Me.Print "格林尼治日期:" & SysTime.wYear; "年" & SysTime.wMonth & "月" & SysTime.wDay & "日"
Me.Print "格林尼治时间:" & SysTime.wHour & ":" & SysTime.wMinute & ":" & SysTime.wSecond
End Sub