Вверх ↑
Ответов: 8937
Рейтинг: 824
#1: 2011-08-17 22:32:13 ЛС | профиль | цитата
Neo, но ведь это 2007 сейчас в HiAsm полно инструментов для работы с датами.
Сложение дат -- дело бесперспективное, например: 17.08.2011+31.08.2012=? что желаете получить в результате?
Другое дело к дате прибавить какое-то количество времени (в неделях, днях, ... микросекундах) и получить следующую дату, так для этого и выдумывать ничего не надо, всё уже есть
------------ Дoбавленo в 22.32:

Add(Edit,2673159,280,133)
{
Left=25
Top=70
Width=160
Text="17.08.2011 22:11:33"
}
Add(Edit,1974876,329,133)
{
Left=205
Top=70
Width=110
Text="1 15:02:17"
link(onChange,5060943:doSplit,[])
}
Add(Label,15111530,280,84)
{
Left=25
Top=55
Width=120
Caption="Дата ДД.ММ.ГГГГ ЧЧ:ММ:СС"
}
Add(Label,8192933,287,84)
{
Left=205
Top=55
Width=110
Caption="Время Д ЧЧ:ММ:СС"
}
Add(Label,10478990,294,84)
{
Left=190
Top=70
Width=15
Font=[MS Sans Serif,12,1,0,1]
Caption="+"
}
Add(Label,1896823,469,182)
{
Left=65
Top=105
Width=215
}
Add(Button,10522112,231,182)
{
Left=315
Top=70
Width=25
Font=[MS Sans Serif,12,1,0,1]
Caption="="
link(onClick,10141666:doConvert,[])
}
Add(DateConvertor,10141666,280,182)
{
Mode=8
Format="dd.MM.yyyy HH:mm:ss"
Point(Data)
link(onResult,3941699:doOperation,[])
link(Data,2673159:Text,[])
}
Add(StrPart,5060943,385,133)
{
Char=" "
DirectEvent=0
link(onSplit,16328838:doConvert,[(425,139)(425,104)])
link(onPart,2946301:doOperation,[])
}
Add(DateConvertor,16328838,434,98)
{
Mode=8
Format="HH:mm:ss"
Point(Result)
}
Add(Math,2946301,427,140)
{
Default=1.62658564814815
link(Op2,16328838:Result,[])
}
Add(Math,3941699,364,182)
{
link(onResult,2547815:doConvert,[])
link(Op2,2946301:Result,[(377,177)(433,177)])
}
Add(DateConvertor,2547815,413,182)
{
Mode=9
Format="dd.MM.yyyy HH:mm:ss"
link(onResult,1896823:doText,[])
}

Код исправлен по замечанию коллеги Tad
карма: 19

0