Особенность Работы Ls

@oshmyomsky · Регистрация: 13.10.2005

Студворк — интернет-сервис помощи студентам

Дано:

1. Документ doc.
2. Поле dateStart, тип Time/Date, значение 01.01.2014.
3. Поле dateEnd, тип Time/Date, значение 01.01.2014 12:00:00.

Нужно: если dateStart < dateEnd, то выполнить функцию processSomethyng().

Реализация:

Dim dtStart as NotesDateTime
Dim dtEnd as NotesDateTime

Set dtStart = New NotesDateTime(doc.getItemvalue("dateStar t")(0))
Set dtEnd = New NotesDateTime(doc.getItemvalue("dateEnd" )(0))

if(dtStart.Timedifference(dtEnd) < 0) Then
Call processSomethyng()
End If

В данном случае функция processSomethyng вызвана не будет, т.е. считается, что dtStart НЕ МЕНЬШЕ dtEnd.

Правильная реализация:
...
Set dtStart = doc.getFirstItem("dateStart").Datetimeva lue
Set dtEnd = doc.getFirstItem("dateEnd").Datetimevalu e
...

Будьте внимательны!!!

@motokorry · 06.02.2014, 00:45

Странный у вас лотусскрипт. У меня работает.

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Нужно: если dateStart < dateEnd, то выполнить функцию processSomethyng().
 
Dim dtStart As NotesDateTime
Dim dtEnd As NotesDateTime
Dim i As Double
 
Set dtStart = New NotesDateTime("01.02.2014")
Set dtEnd = New NotesDateTime("05.02.2014")
 
i = dtStart.Timedifference(dtEnd)
If i < 0 Then
MsgBox "Все норм! Лотусскрипт рулит! Разница в днях " + CStr(Abs(i) / 86400 ) <- Сюда попадает
Else
MsgBox "Не сработало! Лотусскрипт - ацтой!"
End If

Может, что в полях документа не так?

@Domymo-Dysykmyr · 06.02.2014, 08:57

2garri:

Code
1
2
    Set dtStart = New NotesDateTime("01.02.2014")
Set dtEnd = New NotesDateTime("01.02.2014 12:00:00")

Топикстартер про такой вариант рассказывает.
LS ведет себя правильно. Так и должно быть.

@sovt · 06.02.2014, 09:42

В данном случае поведение LS оправдано, в первой дате нет времени, во второй есть.
При вычитании он не развернет dtStart в "01.02.2014 00:00:00", он наоборот обрежет dtEnd до "01.02.2014" и результат будет 0.
А вот если сделать инициализацию Set dtStart = New NotesDateTime("01.02.2014 00:00:00"), то разница уже будет <0
Так что если есть подозрение, что в дате есть время и оно должно влиять на отбор, то лучше инициализировать со временем.

@oshmyomsky · 06.02.2014, 10:26

Сообщение от savl

В данном случае поведение LS оправдано, в первой дате нет времени, во второй есть.
При вычитании он не развернет dtStart в "01.02.2014 00:00:00", он наоборот обрежет dtEnd до "01.02.2014" и результат будет 0.
А вот если сделать инициализацию Set dtStart = New NotesDateTime("01.02.2014 00:00:00"), то разница уже будет <0
Так что если есть подозрение, что в дате есть время и оно должно влиять на отбор, то лучше инициализировать со временем.

Для меня не было очевидным, что обрежется дата со временем, а не развернется дата без.
И не смотря на это, doc.getFirstItem("dateStart").Datetimeva lue возвращает дату с добавленным временем.
Т.е. конструкции New NotesDateTime и Datetimevalue работают по-разному, я об этом.

@sovt · 06.02.2014, 10:48

Да, не очевидно, думаю это связано с TimeZone.
Когда делаешь объект только из даты или только времени, то TimeZone не устанавливается, следовательно в какое время преобразовывать?
Может дата хранится в TimeZone = 0, а вычитаем мы TimeZone = 4, как LS поймет к какой зоне приравнивать 0 или 4?
Даже если локальные настройки брать, может у вас TimeZone = 3 и что тогда?)
Datetimevalue: насколько я замечал в Item date/time всегда указывается TimeZone, так что время может быть возвращено верно.

@motokorry · 06.02.2014, 11:49

2garri:
Set dtStart = New NotesDateTime("01.02.2014")
Set dtEnd = New NotesDateTime("01.02.2014 12:00:00")

Топикстартер про такой вариант рассказывает.
LS ведет себя правильно. Так и должно быть.

Прошу прощения не заметил. То же самое. Результат = 0

@tmyky · 06.02.2014, 14:28

ну раз так...
рекомендую поиграться (актуально для 7.0.4, выше не смотрел)
берем поля типа дата, задаем его отображение в виде Calendar/Time control
поля dateOnly с формулой трансляции @Date(@ThisValue) и отображением без времени
поле timeOnle с формулой трасляции @Time(@ThisValue) и отображением без даты
создаем Computed поле, формулой
v:=@Text(dateOnly) + " " + @Text(timeOnly);
@Adjust(@ToTime(dateOnly);0;0;0;23;120;6 0);
@Adjust(@TextToTime(v);0;0;0;23;120;60)

сначала, потом коментим нижнюю строку :crash:

Добавлено: и да... минуты м.б. любые, но не более 24*60, как и секунды не 24*3600 в первом Adjust

Добавлено: попутно интересно узнать - как получать дату с временем интерактивно, кроме как через текст ;), в формулах

@sovt · 06.02.2014, 14:34

Сообщение от lmike

ну раз так...
рекомендую поиграться (актуально для 7.0.4, выше не смотрел)
берем поля типа дата, задаем его отображение в виде Calendar/Time control
поля dateOnly с формулой трансляции @Date(@ThisValue) и отображением без времени
поле timeOnle с формулой трасляции @Time(@ThisValue) и отображением без даты
создаем Computed поле, формулой
v:=@Text(dateOnly) + " " + @Text(timeOnly);
@Adjust(@ToTime(dateOnly);0;0;0;23;120;6 0);
@Adjust(@TextToTime(v);0;0;0;23;120;60)

Точно нигде не ошибся?)

Вывел через @Prompt, слева от * @Adjust(@ToTime(dateOnly);0;0;0;23;120;6 0), справа @Adjust(@TextToTime(v);0;0;0;23;120;60)
LN 9.0

@tmyky · 06.02.2014, 14:57

Сообщение от savl

Точно нигде не ошибся?)

Вывел через @Prompt, слева от * @Adjust(@ToTime(dateOnly);0;0;0;23;120;6 0), справа @Adjust(@TextToTime(v);0;0;0;23;120;60)
LN 9.0

вот как-то так

@tmyky · 06.02.2014, 16:47

в 9-ке - тоже, с оговорками:
-9-ка под линухами (нативная), хотя, полагаю - в вендятке будет также
-форма делалась под 7.04 дизигнером

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

@oshmyomsky 0 / 0 / 0 Регистрация: 13.10.2005 Сообщений: 848

	Особенность Работы Ls 05.02.2014, 23:38. Показов 8094. Ответов 10 Метки нет (Все метки) Дано: 1. Документ doc. 2. Поле dateStart, тип Time/Date, значение 01.01.2014. 3. Поле dateEnd, тип Time/Date, значение 01.01.2014 12:00:00. Нужно: если dateStart < dateEnd, то выполнить функцию processSomethyng(). Реализация: Dim dtStart as NotesDateTime Dim dtEnd as NotesDateTime Set dtStart = New NotesDateTime(doc.getItemvalue("dateStar t")(0)) Set dtEnd = New NotesDateTime(doc.getItemvalue("dateEnd" )(0)) if(dtStart.Timedifference(dtEnd) < 0) Then Call processSomethyng() End If В данном случае функция processSomethyng вызвана не будет, т.е. считается, что dtStart НЕ МЕНЬШЕ dtEnd. Правильная реализация: ... Set dtStart = doc.getFirstItem("dateStart").Datetimeva lue Set dtEnd = doc.getFirstItem("dateEnd").Datetimevalu e ... Будьте внимательны!!! 0

@sovt 0 / 0 / 0 Регистрация: 27.10.2011 Сообщений: 2,124
	06.02.2014, 09:42
	В данном случае поведение LS оправдано, в первой дате нет времени, во второй есть. При вычитании он не развернет dtStart в "01.02.2014 00:00:00", он наоборот обрежет dtEnd до "01.02.2014" и результат будет 0. А вот если сделать инициализацию Set dtStart = New NotesDateTime("01.02.2014 00:00:00"), то разница уже будет <0 Так что если есть подозрение, что в дате есть время и оно должно влиять на отбор, то лучше инициализировать со временем. 0

@sovt 0 / 0 / 0 Регистрация: 27.10.2011 Сообщений: 2,124
	06.02.2014, 10:48
	Да, не очевидно, думаю это связано с TimeZone. Когда делаешь объект только из даты или только времени, то TimeZone не устанавливается, следовательно в какое время преобразовывать? Может дата хранится в TimeZone = 0, а вычитаем мы TimeZone = 4, как LS поймет к какой зоне приравнивать 0 или 4? Даже если локальные настройки брать, может у вас TimeZone = 3 и что тогда?) Datetimevalue: насколько я замечал в Item date/time всегда указывается TimeZone, так что время может быть возвращено верно. 0

@tmyky 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 6,252
	06.02.2014, 14:28
	ну раз так... рекомендую поиграться (актуально для 7.0.4, выше не смотрел) берем поля типа дата, задаем его отображение в виде Calendar/Time control поля dateOnly с формулой трансляции @Date(@ThisValue) и отображением без времени поле timeOnle с формулой трасляции @Time(@ThisValue) и отображением без даты создаем Computed поле, формулой v:=@Text(dateOnly) + " " + @Text(timeOnly); @Adjust(@ToTime(dateOnly);0;0;0;23;120;6 0); @Adjust(@TextToTime(v);0;0;0;23;120;60) сначала, потом коментим нижнюю строку :crash: Добавлено: и да... минуты м.б. любые, но не более 2460, как и секунды не 243600 в первом Adjust Добавлено: попутно интересно узнать - как получать дату с временем интерактивно, кроме как через текст ;), в формулах 0

@tmyky 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 6,252
	06.02.2014, 16:47
	в 9-ке - тоже, с оговорками: -9-ка под линухами (нативная), хотя, полагаю - в вендятке будет также -форма делалась под 7.04 дизигнером 0