date - lotusscript 中的日期操作算法

Question

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

TimeNumber我从两个日期/时间开始，并通过向 LotusScriptDate变量添加 15 分钟来调整一个以使其与另一个相等。

怎么可能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