谁告诉我怎么获取系统时间啊!

gene000 2003-03-10 11:46:53
如题!
...全文
61 14 打赏 收藏 转发到动态 举报
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
用户 昵称 2003-03-11
  • 打赏
  • 举报
回复
module


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

Declare Sub GetSystemTime Lib "kernel32.dll" (lpSystemTime As SYSTEMTIME)

form
Public Sub GetTime()
Dim st As SYSTEMTIME
GetSystemTime st
Debug.Print "Year - " & st.wYear
Debug.Print "Month - " & st.wMonth
Debug.Print "DayOfWeek - " & st.wDayOfWeek
Debug.Print "Day - " & st.wDay
Debug.Print "Hour - " & st.wHour
Debug.Print "Minute - " & st.wMinute
Debug.Print "Second - " & st.wSecond
Debug.Print "Milliseconds - " & st.wMilliseconds
End Sub
liuguangxing 2003-03-11
  • 打赏
  • 举报
回复
DATE
gene000 2003-03-11
  • 打赏
  • 举报
回复
我知道有getsystemtime这个函数,但是不知道怎么调用!
绝缘 2003-03-11
  • 打赏
  • 举报
回复
API:
GetLocalTime函数得到本地时间
GetSystemTime函数得到系统时间
xgming 2003-03-11
  • 打赏
  • 举报
回复
用GetLocalTime()就与北京时间一样了。
xo2000 2003-03-11
  • 打赏
  • 举报
回复
还是用now或date函数吧。
GetSystemTime 取到的时间格式是GMT 的,与北京时间相差8个小时!
zhangbob 2003-03-11
  • 打赏
  • 举报
回复
用now或date函数比较方便了
hengxin54 2003-03-11
  • 打赏
  • 举报
回复
now()
lxcc 2003-03-11
  • 打赏
  • 举报
回复
now
date
time等等,看要什么样格式了
pcwak 2003-03-11
  • 打赏
  • 举报
回复
date
time
goldfish9 2003-03-11
  • 打赏
  • 举报
回复
now() 或time
northwolves 2003-03-10
  • 打赏
  • 举报
回复
MsgBox Date & vbCrLf & Time
programfish 2003-03-10
  • 打赏
  • 举报
回复
也可用API getsystemtime 函数。
Sean918 2003-03-10
  • 打赏
  • 举报
回复
Private Sub Form_Load()
MsgBox Now
End Sub

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧