lotusscript中的日期操作算法

Question

注意：我没有使用notesdatetime类来提高效率。在lotusscript中使用本机算法要快10倍，这对我的应用程序来说至关重要。

我从两个日期/时间开始，通过使用TimeNumber将一个15分钟添加到LotusScript Date变量来调整一个等于另一个。

ahEnd怎么能比aStart更大？运行代码，看看！

Dim aStart As double, ahStart As Double, ahEnd As double

aStart = CDat("18/May/2013 10:45:00: AM")
ahStart = CDat("18/May/2013 10:15:00 AM")
ahEnd = ahStart + TimeNumber (0, 30, 0)

If ahEnd > aStart Then
    MsgBox ahEnd & " is greater than " & aStart & " ?? Incorrect!"
Else 
    MsgBox ahEnd & " is NOT greater than " & aStart & ". Correct!"
End If