IBM Lotus Symphony


Timer 函数 [运行时]

返回一个值,指定从午夜起所流逝的时间(以秒为单位)。

备注图标 必须先声明一个变量以调用 Timer 函数,并将其指定为“长整型”数据类型,否则将返回“日期”值。

语法:

Timer

返回值:

日期

示例:

Sub ExampleTimer

Dim lSec as long,lMin as long,lHour as long

lSec = Timer

MsgBox lSec,0,"Seconds since midnight"

lMin = lSec / 60

lSec = lSec Mod 60

lHour = lMin / 60

lMin = lMin Mod 60

MsgBox Right("00" & lHour , 2) & ":"& Right("00" & lMin , 2) & ":"& Right("00" & lSec , 2) ,0,"The time is"

end sub


产品反馈 | 其他文档 | 商标