日期序列

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=ProPgDates
• 最后更新: 2022-04-30

---

表示日期和时间的浮点数

说明

日期序列是一个以 PDS 或 VBDOS 所使用的相同格式保存日期和时间值的数字。该值是从 1899 年 12 月 30 日凌晨 0:00 起的天数计数；它主要用于方便地计算两个日期之间的时间间隔。

日期序列的单位为一天，小数部分表示当天的时间。如果将日期序列写入整数，时间信息将会丢失。FreeBASIC 的日期序列不像 VBDOS 那样限制在 1753 年到 2078 年之间。FreeBASIC 的日期序列处理函数使用 Double 类型参数。

FreeBASIC 的日期序列处理函数需要在源代码中包含 vbcompat.bi 或 datetime.bi。

日期序列可以由 Now、TimeSerial+DateSerial 或 DateValue+TimeValue 函数创建。

Year、Month、Weekday、Day、Hour、Minute、Second 函数允许提取日期序列的各个组成部分。

Format 函数具有格式化表达式，可以以人类可读的方式打印日期序列。

示例

start GeSHi

#include "vbcompat.bi"
Dim a As Double, b As Double

a = 0
Print "The origin of the date serials is:"
Print Format(a, "yyyy/mm/dd hh:mm:ss")
Print

a = Now
Print "The time now is: "
Print Format(a, "yyyy/mm/dd hh:mm:ss")
Print

b = DateSerial(2000,1,1)
Print Int(a-b) & " days have passed since 2000/01/01"

end GeSHi

返回 目录