TimeSerial
 
获取日期序列号指定的小时、分钟、和秒

语法

Declare Function TimeSerial ( ByVal hour As Integer, ByVal minute As Integer, ByVal second As Integer ) As Double

用法

#include "vbcompat.bi"
result = TimeSerial( hours , minutes , seconds )

参数

hour
小时数，范围0-23
minute
分钟数
second
秒数

返回值

返回日期序列号，其中包含由hours ，minutes 和seconds 参数中的值组成的时间。返回的日期串没有整数部分。

说明


hours 必须在0-23范围内指定

除非包含vbcompat.bi或datetime.bi，否则编译器将无法识别此函数。

例子

#include "vbcompat.bi"

Dim ds As Double = DateSerial(2005, 11, 28) + TimeSerial(7, 30, 50)

Print Format(ds, "yyyy / mm / dd hh：mm：ss")


与QB差别

  • 在QB中不存在该函数出现在PDS和VBDOS中

参考