使用TimeDifference,实现两个时间变量的相减,得出秒间隔

在Lotusscript中如何实现两个时间变量相减,我们可以使用TimeDifference函数:

首先两个时间变量的格式必须相同:

Dim strDate As NotesDateTime

Dim endDate As NotesDateTime

Set strDate = New NotesDateTime(Format("01/09/2011","dd/mm/yyyy"))

Set endDate = New NotesDateTime(Format("01/09/2011","dd/mm/yyyy"))

然后通过imeDifference方法,取得两个时间秒差值:

datediff = endDate.TimeDifference(strDate)/60/60/24

'输出查看天数

Msgbox datediff

源代码：

Sub Initialize

On Error Goto errhandle

Dim strDate As NotesDateTime

Dim endDate As NotesDateTime

Set strDate = New NotesDateTime(Format("01/09/2011","dd/mm/yyyy"))

Set endDate = New NotesDateTime(Format("20/09/2011","dd/mm/yyyy"))

datediff = endDate.TimeDifference(strDate)/60/60/24

Msgbox datediff

Exit Sub

errhandle:

Msgbox "两个时间变量相减:" & Erl & Error$

Exit Sub

End Sub