excel vba 两个日期比较，求代码！

求，如果A1单元格日期大于等于今天，MSGBOX=TRUE,否则FALSE,代码

Sub a()
MsgBox [a1] >= Date
End Sub

这个主要是由于数据的舍入精度决定的。 不光是excel会出现这种情况，任何编程语言都不可能准确地判断两个浮点数是否相等。 对于integer的两个整数a,b 可以直接通过a<>b判断 但是对于double、single、float、decimal等浮点数a,b 可以通过间接地手段进行判断 math.abs(a-b)<0.00000001(可以设置为任何一个比较小的数值，也就是说如果两个数的差如果足够小的话则我们近似地认为它们相等) ********************************************************************************************** 请问您能不能把您在工作表以及vba中判断的全部代码贴出来让大家分析一下？ 或许有助于解决问题。 **********************************************************************************************