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

  • Автор темы kilcher
  • Дата начала
K

kilcher

#1
Добрый день,всем! :rolleyes:

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

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#4
А ты проверь.
Кстати, в хелпе можешь поискать страничку "Performing time-date operations".
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#6
Работает. Значит ты не так делаешь. :(
Переводить ничего не надо.
 
K

kilcher

#9
А вот как бы это на скрипте провернуть? Что то намудрила кажется с типами переменных :) Помогите,пожалуйста разобраться!
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

Что это ? :)
Lotus team
10.12.2004
3 346
1
#10
NotesDateTime в топку(вместе с dateTime). :)
Set subj2 = dateTime замени на subj2 = Now или Today

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

kilcher

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

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


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

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#12
Еще subj = doc.GetItemValue( "time_1" ) замени на subj = doc.GetItemValue( "time_1" )(0)
 
K

kilcher

#13
Еще 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


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