В справке что то ничего похожего не нашел.
Подскажите как это сделать или где искать.
Заранее спасибо.

 

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

 

А сравнить 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

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

 

это прикол такой - сравнивать неинициализированные переменные ?

 

это прикол такой - сравнивать неинициализированные переменные wink.gif?

lmike
Они инициализированы, просто здесь не указал

 

тогда всё сравнивается

 

.DateOnly возвращает строку.

Dim dst as NotesDateTime
Dim ndr as NotesDateRange
If (cdat(dst.DateOnly)>=ndr.StartDateTime) Or (cdat(dst.DateOnly)<=ndr.EndDateTime) Then

End If

 

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

 

проще: dt.TimeDifference(dtEnd)>0
еще есть SetAnyTime и SetAnyDate для особых нужд

 

(Cdat(dst.DateOnly)>=Cdat(ndr.StartDateTime.DateOnly)) And (Cdat(dst.DateOnly)<=Cdat(ndr.EndDateTime.DateOnly))

так получилось, всем спасибо

 

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

 

Индусом решил заделаться? Делай как lmike написал.

 

правильне сравнивать БЕЗ преобразований а это Time.LSLocalTime