HOUR

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgHour
• 最后更新: 2016-02-10

---

从日期序列中获取小时数

语法

declare function Hour ( byval date_serial as double ) as long

用法

#include "vbcompat.bi"
result = Hour( dateserial )

参数

date_serial

日期序列

返回值

从包含日期序列格式日期的变量中返回小时数。

说明

除非包含 vbcompat.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 "); Hour(ds)

end GeSHi

与 QB 的差异

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

另请参阅

• 日期序列

返回 目录