1

我已经使用 lotusscript 编写了一个代码来计算两个字段之间的时间差，现在我想计算日期之间的差。我几乎已经开始使用 lotusscripting，但我仍然对它有一点了解。希望您能够帮助我。这是我为计算时差而编写的代码：

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 返回两个 NotesDateTimes 之间的秒数。一天有 60 * 60 * 24 秒，计算结果是 86400。所以只需完全按照上面的方式编写代码，然后将结果除以 86400。（您可能想要更改的唯一另一件事是您的字段和变量名称，以反映您使用日期输入而不是时间的事实。）

于 2013-03-27T03:18:25.647 回答