Счетчик оставшегося времени

[kilcher]

Добрый день,всем!

Появилась задачка,следующего содержания. Документ отправляется человеку для визирования. Но держать он его может дня два. Когда подходит срок кинуть документ дальше,надо послать ему напоминание "осталось столько дней и часов."
Вот как сделать этот отсчет я не совсем понимаю.
Создала два поля:дата начала согласования и дата конца. Я так представляю,что следует сравнивать текущую дату и дату оканчания.
Не подскажете какой функцией этого добиться?

 

[Medevic]

Оператор вычитания.

 

[kilcher]

Оператор вычитания.

Это конечно весело.Но он навряд ли будет работать с переменными типа дата

так что ли? @GetField("time_1")-@Now
как то нелепо выглядит

 

[Medevic]

А ты проверь.
Кстати, в хелпе можешь поискать страничку "Performing time-date operations".

 

[kilcher]

А ты проверь.
Кстати, в хелпе можешь поискать страничку "Performing time-date operations".

Неа не работает.Помогите пожалуйста!
Может перевести в даты в числовые значения? Но тогда будут ошибки в вычислении

 

[Medevic]

Работает. Значит ты не так делаешь.
Переводить ничего не надо.

 

[kilcher]

Работает. Значит ты не так делаешь.
Переводить ничего не надо.

Поэксперементировала и вроде получилось. Только вот считает в секундах

 

[Medevic]

Ну перевести не проблема.

 

[kilcher]

А вот как бы это на скрипте провернуть? Что то намудрила кажется с типами переменных Помогите,пожалуйста разобраться!
Dim uidoc As NotesUIDocument
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim subj As Variant
Dim subj1 As Variant
Dim subj2 As Variant
Dim dateTime As New NotesDateTime( "" )

Set uidoc = ws.CurrentDocument
Set doc =uidoc.Document

If doc.Status_new(0)="Согласовывается" Then

subj = doc.GetItemValue( "time_1" )
Call dateTime.SetNow
Set subj2 = dateTime
subj1 = subj-subj2
Messagebox(subj1) 'Это я просто для проверки хочу окошко с результатом вывести
End If

 

[Medevic]

NotesDateTime в топку(вместе с dateTime).
Set subj2 = dateTime замени на subj2 = Now или Today

С классом NotesDateTime вообще не очень удобно работать. Лучше с Variant of DataType 7.
А так у класса NotesDateTime есть метод TimeDifference.

 

[kilcher]

NotesDateTime в топку(вместе с dateTime).
Set subj2 = dateTime замени на subj2 = Now или Today

С классом NotesDateTime вообще не очень удобно работать. Лучше с Variant of DataType 7.
А так у класса NotesDateTime есть метод TimeDifference.

Заменила,но ошибка осталась. Type mismath именно в этой сторке

 

[Medevic]

Еще subj = doc.GetItemValue( "time_1" ) замени на subj = doc.GetItemValue( "time_1" )(0)

 

[kilcher]

Еще subj = doc.GetItemValue( "time_1" ) замени на subj = doc.GetItemValue( "time_1" )(0)

Сделала,с использованием TimeDifference
Set todayDT = New NotesDateTime("Today")
Set dueDT = New NotesDateTime (doc.GetItemValue( "time_1" )(0))
daysLeft = dueDT.TimeDifference(todayDT)/ 86400


СПАСИБО! Теперь буду писать агентика на этой основе