使用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

 

 

 

source code:

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