DateTime 模块

DateTime 模块将读取系统时钟、从组件构建 Date 值、从字符串解析日期、将日期拆分为组件以及按指定单位向前或向后移动日期的过程组合在一起。一个设置项——Calendar 属性——即可在整个模块中切换公历和回历。

读取系统时钟

Now 返回当前系统日期和时间，作为一个 Date 子类型的 Variant；Date 仅返回日期部分，Time 仅返回时间部分。后两者各有一个带 $ 后缀的兄弟——Date$ 和 Time$——它们以格式化的 String 而非 Date 返回相同的值。这四个属性也都是可写的：对它们赋值会更改系统时钟，但受操作系统权限要求限制。

INFO

在 twinBASIC 中，Date、Date$、Time 和 Time$ 被实现为模块级属性，而非 VBx 中的函数/语句。语法和语义保持不变。

Timer 返回一个 Single，给出自午夜以来经过的秒数（含小数精度），是测量运行中经过时间的常用方法。

Dim Started As Single
Started = Timer
' ... do some work ...
Debug.Print "Elapsed: " & (Timer - Started) & " seconds"

从组件构建日期和时间

DateSerial 从年、月、日参数构建一个 Date；TimeSerial 从小时、分钟、秒构建。两者都支持超范围参数的进位——将 13 作为月份会进位到下一年，将 75 作为分钟会进位到下一小时——这使它们非常适合用组件的简单算术来表达相对日期。

Dim FirstOfNextMonth As Date
FirstOfNextMonth = DateSerial(Year(Now), Month(Now) + 1, 1)

DateValue 以系统短日期格式从字符串解析日期——可识别数字形式和明确的月份名称——并丢弃任何时间部分。TimeValue 是时间字符串的相应解析器；它丢弃任何日期部分。对于源自源代码中日期字面量的值，#...# 语法通常比任一解析器更合适。

提取日期的部分

单组件访问器各自返回 Date 的一部分作为 Integer：Year、Month、Day、Weekday、Hour、Minute 和 Second。DatePart 泛化了相同的思路，以字符串间隔代码（"yyyy"、"q"、"m"、"d"、...）作为参数来选择要提取的部分——当单位本身是参数时很有用。

Dim D As Date
D = #2/12/1969#
Debug.Print Year(D)       ' 1969
Debug.Print Month(D)      ' 2
Debug.Print Day(D)        ' 12
Debug.Print Weekday(D)    ' 4 — Wednesday

日期算术

DateAdd 将日期按选定的间隔数偏移——年、季度、月、周、日、小时、分钟或秒——考虑日历不规则性（月份长度不同、闰年），并在字面日值无效时钳制到目标月份的最后一天。DateDiff 执行逆操作：返回两个日期之间的完整间隔数。两者都使用与 DatePart 相同的字符串间隔代码。

Debug.Print DateAdd("m", 1, #1/31/2026#)          ' 2/28/2026 — clamped to last day of February
Debug.Print DateDiff("d", #1/1/2026#, #5/9/2026#) ' 128

日历选择

Calendar 属性选择模块其余部分使用的日历——vbCalGreg（公历，默认）或 vbCalHijri（回历）。该设置控制 Date$ 如何格式化系统日期、DateSerial、DateValue、DateAdd 和 DateDiff 的参数如何解释，以及 DatePart、Year、Month、Day 和 Weekday 返回的部分如何报告。

成员

• Calendar -- 返回或设置日历类型（公历或回历）
• Date -- 设置或返回当前系统日期
• DateAdd -- 向日期添加时间间隔
• DateDiff -- 返回两个日期之间的时间间隔数
• DatePart -- 返回给定日期的指定部分
• DateSerial -- 返回指定年、月、日的日期
• DateValue -- 将字符串转换为日期
• Day -- 返回日期值中的月份中的日
• Hour -- 返回时间值中的小时
• Minute -- 返回时间值中的分钟
• Month -- 返回日期值中的月份
• Now -- 返回当前系统日期和时间
• Second -- 返回时间值中的秒
• Time -- 设置或返回当前系统时间
• Timer -- 返回自午夜以来经过的秒数
• TimeSerial -- 返回指定小时、分钟和秒的时间
• TimeValue -- 将字符串转换为时间
• Weekday -- 返回日期值中的星期几
• Year -- 返回日期值中的年份