Вверх ↑
Ответов: 5227
Рейтинг: 586
#1: 2020-08-18 21:19:16 ЛС | профиль | цитата
Простое вычисление между датами (vbs)
Для всяких напоминалок пойдёт

Add(MainForm,2953706,147,168)
{
Width=257
Height=145
BorderStyle=3
Position=1
Point(onClose)
}
Add(DatePicker,6941124,84,105)
{
Left=20
Top=26
Width=164
Height=24
Font=[Tahoma,8,0,8388736,1]
TabOrder=1
Ctl3D=0
Hint="Выбор даты:Начало"
DateFormat=1
Point(DateTime)
link(onChange,9453086:doWork1,[(130,111)])
}
Add(DatePicker,1752262,147,105)
{
Left=20
Top=48
Width=164
Height=24
Font=[Tahoma,8,0,8388736,1]
TabOrder=2
Hint="Выбор даты:Конец"
DateFormat=1
Point(DateTime)
link(onChange,9453086:doWork2,[(198,111)(198,143)])
}
Add(VBJScript,1064411,84,168)
{
WorkPoints=#6:doWork|
EventPoints=#5:onRes|
DataPoints=#3:dt1|3:dt2|
Script=#18:Sub doWork(dt,idx)|43: sys.onRes DateDiff("s", sys.dt1, sys.dt2)|7:End Sub|0:|28:' первый параметр может быть|12:' "d" - день|11:' "h" - час|14:' "n" - минута|15:' "s" - секунда|
link(onRes,2953706:doCaption,[])
link(dt1,6941124:DateTime,[])
link(dt2,1752262:DateTime,[(97,152)(153,152)])
}
Add(HubEx,9453086,126,137)
{
Angle=2
link(onEvent,1064411:doWork,[(72,143)(72,174)])
}

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0