1. Уважаемые участники и гости, 19 октября codeby будет работать в режиме "Только чтение". Регистрация новых участников будет закрыта. 20 октября портал продолжит работу в прежнем режиме.

Adjustmonth

Тема в разделе "Lotus - Программирование", создана пользователем leiba, 8 июн 2011.

  1. leiba

    leiba Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    18 июн 2010
    Сообщения:
    47
    Симпатии:
    0
    Вдруг кто не знает.
    Вот такой код:
    Код:
    	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
     
  2. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Репутация:
    1
    Регистрация:
    27 авг 2008
    Сообщения:
    6.361
    Симпатии:
    335
  3. leiba

    leiba Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    18 июн 2010
    Сообщения:
    47
    Симпатии:
    0
    Действительно, Call dtEnd.AdjustMonth(1, True) помогло, но смысла этого "кульбита" признаюсь не понял.
     

Поделиться этой страницей