• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Как проверить входить ли Notesdatetime в Notesdaterange?

dimat

Well-known member
31.07.2008
508
0
BIT
0
В справке что то ничего похожего не нашел.
Подскажите как это сделать или где искать.
Заранее спасибо.
 
A

alik86

А сравнить Notesdatetime со значениями StartDateTime и EndDateTime нельзя разве?
 

dimat

Well-known member
31.07.2008
508
0
BIT
0
А сравнить Notesdatetime со значениями StartDateTime и EndDateTime нельзя разве?
Пробовал пишет ошибку при сохранении Type mismatch.
Может конечно я как то не правильно записал сравнение?
Код:
Dim dst as NotesDateTime
Dim ndr as NotesDateRange
If (dst.DateOnly>=ndr.StartDateTime) Or (dst.DateOnly<=ndr.EndDateTime) Then

End If
Или так
Код:
Dim dst as NotesDateTime
Dim ndr as NotesDateRange
If (dst>=ndr.StartDateTime) Or (dst<=ndr.EndDateTime) Then

End If
результат один
 

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 933
609
BIT
177
это прикол такой - сравнивать неинициализированные переменные :(?
 

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 933
609
BIT
177
тогда всё сравнивается
 

Kizarek86

Green Team
20.07.2007
871
7
BIT
33
.DateOnly возвращает строку.
Код:
Dim dst as NotesDateTime
Dim ndr as NotesDateRange
If (cdat(dst.DateOnly)>=ndr.StartDateTime) Or (cdat(dst.DateOnly)<=ndr.EndDateTime) Then

End If
 
A

alik86

И при каком сохранении ошибку выдает? На что конкретно ругается?
Нормально должно сравнивать -- потыркайтесь и усё будзе добра!
И про хелп Вы лукавите. Поколупайте его внимательней, приведенные там примеры изучите. В частности TimeDifference method можно прикрутить. И еще кой чего можно.
 

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 933
609
BIT
177
проще: dt.TimeDifference(dtEnd)>0
еще есть SetAnyTime и SetAnyDate для особых нужд
 

dimat

Well-known member
31.07.2008
508
0
BIT
0
Код:
(Cdat(dst.DateOnly)>=Cdat(ndr.StartDateTime.DateOnly)) And (Cdat(dst.DateOnly)<=Cdat(ndr.EndDateTime.DateOnly))
так получилось, всем спасибо
 

lmike

нет, пердело совершенство
Lotus Team
27.08.2008
7 933
609
BIT
177
если честно - этой строкой делаете всякую...
dst.SetAnyTime
dst.LSLocalTime
и также для границ рэнжа
либо использовать диференц (луче всего, хотя менее наглядно)
потому как преобразовывать в строку и обратно - сомнительное (по эффективности) действие
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Индусом решил заделаться? :( Делай как lmike написал.
 

ToxaRat

Чёрный маг
Green Team
06.11.2007
3 332
42
BIT
0
правильне сравнивать БЕЗ преобразований а это Time.LSLocalTime
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!