0

注:notesdatetime効率のためにクラスを使用していません。lotusscript でネイティブ演算を使用すると、10 倍速くなり、これは私のアプリケーションでは重要です。

TimeNumber2 つの日付/時刻から始めて、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
4

0 に答える 0