1

2つのフィールド間の時間差を計算するロータススクリプトを使用してコードを作成しました。次に、日付間の差を計算します。私はほとんどロータススクリプティングを始めましたが、それについてはまだ最低限の知識しかありません。あなたが私を助けてくれることを願っています。時間差を計算するために作成したコードは次のとおりです。

Sub UpdateDuration()
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim starttime As NotesDateTime
Dim endtime As NotesDateTime
Dim duration As Integer

Set uidoc = ws.CurrentDocument
If uidoc.FieldGetText("StartTime") = "" Then
    Exit Sub
Elseif uidoc.FieldGetText("StartTime") = "" Then
    Exit Sub        
End If
Set starttime = New NotesDateTime( uidoc.FieldGetText("StartTime") )
Set endtime = New NotesDateTime( uidoc.FieldGetText("EndTime") )
duration = endtime.TimeDifference( starttime )
Call uidoc.FieldSetText("Duration", Cstr(duration) )
Call uidoc.Refresh()
End Sub
4

1 に答える 1

3

TimeDifferenceは、2つのNotesDateTime間の秒数を返します。1日に60*60 * 24秒あり、86400になります。したがって、上記のようにコードを正確に記述し、結果を86400で除算します（変更する必要があるのは、フィールド名と変数名だけです。 、時間ではなく日付入力を使用しているという事実を反映するため。）

于 2013-03-27T03:18:25.647 に答える