Adjustmonth

[leiba]

Вдруг кто не знает.
Вот такой код:

	Dim sDate As String
Dim dtStart As NotesDateTime
Dim dtEnd As NotesDateTime

sDate= {01.05.2011 00:00:01}
Set dtStart = New NotesDateTime(sDate)
Set dtEnd = New NotesDateTime(sDate)
dtEnd.AdjustMonth(1)

Msgbox dtStart.LocalTime & { - } & dtEnd.LocalTime

Выводится
01.05.2011 00:00:01 ZE3 - 31.05.2011 00:00:01 ZE3
Лично я ожидал увидеть 1-е июня.

Лотусовый косяк или я что-то не понимаю?

UPD: версия клиента 8.5.1

 

[lmike]

есть деталь по потере и часа

Ссылка скрыта от гостей

preserveLocalTime

 

[leiba]

есть деталь по потере и часа ...
preserveLocalTime

Действительно, Call dtEnd.AdjustMonth(1, True) помогло, но смысла этого "кульбита" признаюсь не понял.