IBM Lotus Symphony
|
返回指定的年、月或日所对应的日期值。
DateSerial (year, month, day)
日期
Year:整型表达式,表示年份。1900-1999 之间的年份可以用 0 到 99 之间相应的数值表示。而对于超出此范围的年份,必须输入完整的四位数字来表示。
Month:整型表达式,表示指定年份中的月份。有效值范围是 1-12。
Day:整型表达式,表示指定月份中的某一天。有效值范围是 1-31。当您输入某月(少于 31 天)中不存在的一天时,不会返回任何错误。
DateSerial 函数返回 1899 年 12 月 30 日与给定日期之间相隔的天数。因此,可以使用此函数计算两个日期之间相隔的天数。
DateSerial 函数返回不定变量数据类型,其 VarType 为 7(日期值)。在程序内部,该值作为双精度值存储,这样,当给定日期为 1900 年 1 月 1 日时,返回值是 2。负值表示给定的日期早于 1899 年 12 月 30 日(不含)。
如果指定有效值范围以外的日期,Lotus® Symphony™ Basic 将返回错误消息。
尽管您将 DateValue 函数定义为包含日期的字符串,DateSerial 函数仍会将每个参数(year、month 和 day)作为单独的数字表达式对其求值。
Sub ExampleDateSerial
Dim lDate as Long
Dim sDate as String
lDate = DateSerial(1964, 4, 9)
sDate = DateSerial(1964, 4, 9)
msgbox lDate REM returns 23476
msgbox sDate REM returns 04/09/1964
end sub