一个时间比较的问题.在线等

[molo003]

要改的是一套发布站程序

原代码如下
Public Function Checkday(toptime,topday)
If Not Isnull(toptime) Then
If Cdate(toptime)+topday>=date Then
Checkday=True
Else
Checkday=False
End if
Else
Checkday=False
End if
End function
我想改成精确到分钟的.

数据库中addtime字段是时间.格式:2009-5-5 11:19:13
数据库中daytime字段是发布天数..格式是整数1这样子的
我想要addtime+daytime<当前时间
这样子要如何实现?