vb中返回当前系统毫秒数的函数是

来源：百度知道 编辑：UC知道 时间：2024/05/13 13:53:13
vb中返回当前系统毫秒数的函数是什么？
我是问返回格林时间啊．．从1970/1/1到现在的毫秒啦

vb中返回当前系统毫秒数的函数是Timer。

Timer 函数，返回一个 Single，代表从午夜开始到现在经过的秒数。

语法：

Timer

说明：Microsoft Windows中，Timer函数返回一秒的小数部分。

Timer 函数示例：

本示例使用 Timer 函数来暂停应用程序。同时用 DoEvents
在暂停期间将控制让给其他进程。

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
   PauseTime = 5   ' 设置暂停时间。
   Start = Timer   ' 设置开始暂停的时刻。
   Do While Timer < Start + PauseTime
      DoEvents   ' 将控制让给其他程序。
   Loop
   Finish = Timer   ' 设置结束时刻。
   TotalTime = Finish - Start&n