IBM Lotus Symphony


DateSerial 函数 [运行时]

返回指定的年、月或日所对应的日期值。

语法:

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)作为单独的数字表达式对其求值。

错误代码

5 无效的过程调用

示例:

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


产品反馈 | 其他文档 | 商标