在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