时间是否可以加减法.比大小

[toowin]

例如:1) 18:03:05减三分钟等于18:00:05
2) 18:03:00>17:50:45 返回值true
问:是否可以实现,怎么可以办到请指教

[yoki]

DateAdd 函数


返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。

语法

DateAdd(interval, number, date)

DateAdd 函数语法中有下列命名参数：

部分 描述
interval 必要。字符串表达式，是所要加上去的时间间隔。
number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。


设置

interval 参数具有以下设定值：

设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒

[yoki]

DateDiff 函数


返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。

语法

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

DateDiff 函数语法中有下列命名参数：

部分 描述
interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔
Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。


设置

interval 参数的设定值如下：

设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒

[yoki]

例如:1) 18:03:05减三分钟等于18:00:05
dateadd("n",3,"18:00:05")

2) 18:03:00>17:50:45 返回值true
if datediff("n","18:03:00","17:50:45")>0 then debug.pring "True"

[rainstormmaster]

可以，像其他数据类型那样使用即可

[rainstormmaster]

Debug.Print CDate(CDate("18:03:05") - CDate("00:03:00"))

If CDate("18:00:05") > CDate("17:45:00") Then
Debug.Print "true"
End If

[program2100]

VB中使用DateDiff即可