请问如何时间变量如何增加
如：
dim a as date
a=now()
如果我将a加10分钟，怎么表达
问题点数：5、回复次数：7Top
1 楼li_ping（学习WinFX（"Avalon"））回复于 2003-07-04 17:04:40 得分 0
a=now()+0.00694Top
2 楼sindyzhou（大胡子）回复于 2003-07-04 17:17:10 得分 0
a=dateadd("m",a,10)Top
3 楼SammyXu（常常看看书,偶尔编编程）回复于 2003-07-04 17:17:14 得分 5
Dim a As Date
a = Now
MsgBox a & "and " & DateAdd("n", 10, a)
语法
DateAdd(interval, number, date)
返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。
interval 参数具有以下设定值：
设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒
Top
4 楼wei1027（猫1027）回复于 2003-07-04 17:17:42 得分 0
DateAdd("n", 10, Now)Top
5 楼csdngoodnight（居然比我还快，你真行！）回复于 2003-07-04 18:35:20 得分 0
DateAdd函数
以Variant类型返回包含在一个日期加上了一段时间间隔的结果.
语法
DateAdd(interval,number,date)
其中Interval是必需的字符串表达式,是所要加的时间间隔.Number是必需的数值表达式,是要加上的时间间隔的数量,其数值可为正数(得到未来的日期),也可以为负数(得到过去的日期).Date是必需的Variant类型或表示日期的字符类型,该日期还加上了时间间隔.
interval参数具有以下设定值:
Yyyy:年
Q:季
M:月
Y:一年的日数
D:日
W:一周的日数
Ww:周
H:时
N:分钟
S:秒
示例:
Dim FirstDate As Date '声明变量.
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType="d" '"d"指定以"日"作为间隔.
FirstDate=InputBox("请输入日期:")
Number=InputBox("请输入增加的天数")
Msg="新的日期为:"&DateAdd(IntervalType,Number,FirstDate)
Debug.Print MsgTop
6 楼beibeilong（whylove）回复于 2003-07-04 22:50:48 得分 0
DateAdd("n", 10, Now)
Top
7 楼asza2001（大海）回复于 2003-07-07 11:39:55 得分 0
此例如加上10分钟后，是另一天了，能正解的在日期上进一吗？
如2000年2月28日23：57此时加十分钟，它会成3月1日，00：07吗？
另如两个时间函数（都有日期）能用a=b还判断是否相等吗？Top
