注:notesdatetime
効率のためにクラスを使用していません。lotusscript でネイティブ演算を使用すると、10 倍速くなり、これは私のアプリケーションでは重要です。
TimeNumber
2 つの日付/時刻から始めて、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