DateAdd
以指定的间隔偏移日期
Declare Function DateAdd ( ByRef interval As Const String, ByVal number As Double, ByVal date_serial As Double ) As Double
#include "vbcompat.bi"
result = DateAdd( interval , number , date_serial )
interval
返回date_serial 所对应的date_serial number intervals .
间隔指定如下：
编译器不会识别此函数，除非包含vbcompat.bi或datetime.bi.
语法
Declare Function DateAdd ( ByRef interval As Const String, ByVal number As Double, ByVal date_serial As Double ) As Double
用法
#include "vbcompat.bi"
result = DateAdd( interval , number , date_serial )
参数
interval
字符串表示哪个时间段对应于number 的一个单位
number 要添加到基准日期的间隔数。数字将四舍五入为最接近的整数。
date_serial 基准日期
返回值
返回date_serial 所对应的date_serial number intervals .
说明
间隔指定如下：
| 值 | 间隔 |
| YYYY | 年份 |
| q | 季度（三个月） |
| m | 个月 |
| ww | 周 |
| D，W，Y | 天 |
| h | 小时 |
| n | 分钟 |
| s | 秒 |
编译器不会识别此函数，除非包含vbcompat.bi或datetime.bi.
例子
#include "vbcompat.bi"
Const fmt = "ddddd ttttt"
Dim d As Double
d = Now()
Print "从现在开始1小时";
Print Format( DateAdd( "h", 1, d ), fmt )
Print "1天从现在开始";
Print Format( DateAdd( "d", 1, d ), fmt )
Print "从现在起1周";
Print Format( DateAdd( "ww", 1, d ), fmt )
Print "从现在起1个月";
Print Format( DateAdd( "m", 1, d ), fmt )
Const fmt = "ddddd ttttt"
Dim d As Double
d = Now()
Print "从现在开始1小时";
Print Format( DateAdd( "h", 1, d ), fmt )
Print "1天从现在开始";
Print Format( DateAdd( "d", 1, d ), fmt )
Print "从现在起1周";
Print Format( DateAdd( "ww", 1, d ), fmt )
Print "从现在起1个月";
Print Format( DateAdd( "m", 1, d ), fmt )
与QB差别
- 在QB中不存在此函数出现在Visual Basic中。
参考