Add(MainForm,16404557,378,217)
{
Left=20
Top=105
Width=452
}
Add(DatePicker,285339,455,147)
{
Left=80
Top=25
Width=142
Height=21
Hint="Выберите дату запуска KillDoc"
Font=[MS Sans Serif,8,1,128,1]
Cursor=3
Point(doVisible)
Point(doEnabled)
Point(CurrentDateTime)
Point(DateTime)
link(OnChange,9992158:doConvert,[])
}
Add(DateConvertor,9992158,504,147)
{
Point(Data)
Point(Day)
link(onResult,3813769:doConvert,[])
link(Data,285339:DateTime,[(510,135)(489,135)(489,191)(468,191)])
}
Add(If_else,2271931,546,231)
{
Type=1
link(onTrue,11656059:doMessage,[(604,237)(604,202)])
link(onFalse,2572030:doMessage,[])
link(Op1,9992158:Day,[(552,205)(510,205)])
link(Op2,3813769:Day,[])
}
Add(Message,11656059,630,196)
{
Message="Меньше"
}
Add(Message,2572030,630,238)
{
Message="Больше"
}
Add(Button,8584905,455,231)
{
Left=125
Top=55
link(onClick,2271931:doCompare,[])
}
Add(DateConvertor,3813769,553,147)
{
Point(Data)
Point(Day)
link(Data,285339:CurrentDateTime,[(559,135)(517,135)(517,191)(461,191)])
}
[size=-2]------ Добавлено в 21:28
Я написал тебе только для даты. Для сравнения полной даты можно использовать значение Real, схема будет еще проще.
Add(MainForm,16404557,413,217)
{
Left=20
Top=105
Width=452
}
Add(DatePicker,285339,546,175)
{
Left=80
Top=25
Width=142
Height=21
Hint="Выберите дату запуска KillDoc"
Font=[MS Sans Serif,8,1,128,1]
Cursor=3
Point(doVisible)
Point(doEnabled)
Point(CurrentDateTime)
Point(DateTime)
}
Add(Button,8584905,483,231)
{
Left=125
Top=55
link(onClick,2271931:doCompare,[])
}
Add(If_else,2271931,546,231)
{
Type=2
link(onTrue,11656059:doMessage,[(604,237)(604,202)])
link(onFalse,2572030:doMessage,[])
link(Op1,285339:CurrentDateTime,[])
link(Op2,285339:DateTime,[])
}
Add(Message,11656059,630,196)
{
Message="Меньше"
}
Add(Message,2572030,630,238)
{
Message="Больше"
}