TIMESERIAL

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgTimeserial
• 最后更新: 2016-03-13

---

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

语法

` declare function TimeSerial ( byval hour as long, byval minute as long, byval second as long ) 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。

示例

start GeSHi

#include "vbcompat.bi"

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

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

end GeSHi

与 QB 的差异

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

参见

• 日期序列
• DateSerial
• TimeValue
• DateValue

返回 目录