Вверх ↑
Ответов: 8938
Рейтинг: 824
#1: 2013-12-14 15:53:42 ЛС | профиль | цитата
Tad,
4. HiAsm: Дата в формате Real содержит в целой части количество полных дней прошедших с Рождества Христова, а дробная часть это часть текущего дня.

Add(MainForm,8432806,217,140)
{
}
Add(Time,3675723,273,140)
{
Point(DateTime)
}
Add(Timer,10525970,224,189)
{
link(onTimer,1547739:doText,[])
}
Add(Label,2518487,273,98)
{
Left=70
Top=15
Width=71
Height=17
Caption="Сейчас [Real]"
}
Add(Label,7928868,238,98)
{
Left=160
Top=30
Width=10
Height=28
Font=[MS Sans Serif,14,1,0,1]
Caption="/"
}
Add(Edit,6617064,343,140)
{
Left=170
Top=35
Text="365.2425"
}
Add(Label,10483732,350,98)
{
Left=220
Top=30
Width=16
Height=28
Font=[MS Sans Serif,14,1,0,1]
Caption="="
}
Add(Edit,8500114,434,189)
{
Left=235
Top=35
}
Add(Label,15503930,308,98)
{
Left=175
Top=15
Width=41
Height=17
Caption="Дн/год"
}
Add(Label,1885576,392,98)
{
Left=225
Top=15
Width=63
Height=17
Caption="Полных лет"
}
Add(Edit,1547739,280,189)
{
Left=30
Top=35
Width=130
link(onChange,3252101:doOperation,[])
link(Str,3675723:DateTime,[])
}
Add(Math,3252101,336,189)
{
OpType=3
link(onResult,8284266:doOperation,[])
link(Op2,6617064:Text,[])
}
Add(Math,8284266,385,189)
{
OpType=35
Op2=1
link(onResult,8500114:doText,[])
}
карма: 19

0