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

最新推荐文章于 2025-02-19 20:15:34 发布

原创最新推荐文章于 2025-02-19 20:15:34 发布 · 4.9k 阅读

0 ·

CC 4.0 BY-SA版权

Domino 专栏收录该内容

17 篇文章

订阅专栏

本文介绍如何在LotusScript中使用TimeDifference函数计算两个日期之间的差值，并提供了一个具体的示例代码，演示了如何创建NotesDateTime类型的日期并计算它们之间的天数差。

在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