LotusScript NotesDateTime.AdjustDay влияет на другой объект NotesDateTime

Question

В агенте LotusScript я пытаюсь уменьшить объект NotesDateTime на один день.

Я:

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

Мой вопрос заключается в том, почему уменьшение объекта date2 на один день также уменьшает объект date1?

Answer 1

date2 указывает на тот же объект NotesDateTime, что и date1 из-за

Set date2 = date1

Вы копируете ссылку только на объект date1, а не на значение. После этой строки кода у вас остается только один экземпляр объекта NotesDateTime. date1 и date2 ссылаются на этот же объект.