日期序列号
说明
日期序列号是以与PDS或VBDOS相同的格式保存日期和时间值的数字。该价值是自一九九八年十二月三十日上午0时零起计算的日期;它主要用于轻松计算两个日期之间的时间。
日期串行单元是一天，小数部分表示当天的时间。如果日期序列被写入一个整数，那么时间就会丢失。FreeBASIC日期序列号不限于1753年至2078年之间，如VBDOS。FreeBASIC日期串行处理函数使用Double参数。
FreeBASIC日期串行处理功能需要在源代码中包含vbcompat.bi或datetime.bi.
可以通过函数NowTimeSerial+ DateSerial或DateValue+ TimeValue创建日期序列号。
函数Year，Month，Weekday，Day，HourMinuteSecond允许恢复日期序列的不同组件。
Format函数具有格式化表达式，可以以人类可读的方式打印日期序列号。
例子
#include "vbcompat.bi"
Dim a As Double, b As Double
a = 0
Print "日期序列的起源是："
Print Format(a, "yyyy / mm / dd hh：mm：ss")
Print
a = Now
Print "现在的时间是："
Print Format(a, "yyyy / mm / dd hh：mm：ss")
Print
b = DateSerial(2000,1,1)
Print Int(a-b) & "自2000/01/01以来已经过去了几天"
Dim a As Double, b As Double
a = 0
Print "日期序列的起源是："
Print Format(a, "yyyy / mm / dd hh：mm：ss")
a = Now
Print "现在的时间是："
Print Format(a, "yyyy / mm / dd hh：mm：ss")
b = DateSerial(2000,1,1)
Print Int(a-b) & "自2000/01/01以来已经过去了几天"