我是初学者,帮帮助!

Question

原来时间=time
commnd1_click()
当前时间 = Time
差=CDate(当前时间 - 原来时间)
end sub
代码不能运行。只是个示例。

Answer 1

sub command1_click()
   debug.print cstr(now()-oldtime)
end sub

Answer 2

DateAdd(interval, number, date)
返回一个日期，这一日期加上了一段时间间隔。可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。DataAdd 函数参数 参数 说明 interval 字符串表达式，是所要加上去的时间间隔的单位。 
number 数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。 
date 日期表达式，这一日期还加上了时间间隔。 interval 参数设定值 值 说明 
yyyy 年 
q 季 
m 月 
y 一年的日数 
d 日 
w 一周的日数 
ww 周 
h 时 
n 分钟 
s 秒 比如：
Print DateAdd("d",-10,"2001-4-23") '得 2001-4-13