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

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

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

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

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

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

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

kilcher

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

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

Medevic

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

kilcher

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



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

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Работает. Значит ты не так делаешь. :(
Переводить ничего не надо.
 
K

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

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
NotesDateTime в топку(вместе с dateTime). :)
Set subj2 = dateTime замени на subj2 = Now или Today

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

kilcher

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

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



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

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Еще subj = doc.GetItemValue( "time_1" ) замени на subj = doc.GetItemValue( "time_1" )(0)
 
K

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


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

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