LotusScript NotesDateTime.AdjustDay影响其他NotesDateTime对象

Question

在LotusScript代理中，我尝试将NotesDateTime对象减少一天。

我＆＃39;已经：

Dim date1 As NotesDateTime("Today")
Dim date2 As NotesDateTime
Call date1.SetNow
Set date2 = date1
Call date2.Adjustday(-1)

我的问题是，为什么将对象date2递减一天也会减少date1对象？

Answer 1

由于

，

date2指向与date1相同的NotesDateTime对象

Set date2 = date1

仅将引用复制到date1的对象，而不是值。在此代码行之后，您仍然只有一个NotesDateTime对象的实例。 date1和date2引用同一个对象。