SECOND

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

---

从日期序列获取秒数

语法

declare function Second ( byval date_serial as double ) as long

用法

#include "vbcompat.bi"
result = Second( date_serial )

参数

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 "); Second(ds)

end GeSHi

与QB的区别

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

参见

• 日期序列

返回 目录