Netspirit писал(а):
потом результат в DateRealToStrFmt.Format=HH:mm:ss
Не прокатит, нужна дата для обратного преобразования, а ее там не будет
Add(MainForm,2953706,77,161)
{
Height=115
}
Add(Edit,6291880,133,161)
{
Left=10
Top=15
Width=110
Text="0:10:00"
}
Add(Edit,9563989,182,161)
{
Left=130
Top=15
Width=110
Text="0:20:00"
}
Add(Edit,15562861,231,161)
{
Left=250
Top=15
Width=110
Text="0:11:25"
}
Add(Edit,2977128,287,294)
{
Left=250
Top=40
Width=110
Text=""
}
Add(Button,5668903,77,231)
{
Left=155
Top=40
TabOrder=-1
link(onClick,14500085:doConvert,[])
}
Add(DateConvertor,14500085,133,231)
{
Mode=8
Format="H:mm:ss"
Point(Data)
Point(Result)
link(onResult,14868032:doConvert,[])
link(Data,6291880:Text,[])
}
Add(DateConvertor,14868032,182,231)
{
Mode=8
Format="H:mm:ss"
Point(Data)
Point(Result)
link(onResult,1654539:doConvert,[])
link(Data,9563989:Text,[])
}
Add(DateConvertor,1654539,231,231)
{
Mode=8
Format="H:mm:ss"
Point(Data)
Point(Result)
link(onResult,5514823:doOperation,[])
link(Data,15562861:Text,[])
}
Add(MathParse,11532965,175,294)
{
DataCount=4
MathStr="%1 + %2 + %3 + %4"
link(onResult,14731565:doConvert,[])
link(X1,14500085:Result,[(181,285)(139,285)])
link(X2,14868032:Result,[])
link(X3,1654539:Result,[(195,271)(237,271)])
}
Add(DateConvertor,14731565,231,294)
{
Mode=9
Format="H:mm:ss"
Point(Data)
Point(Result)
link(onResult,2977128:doText,[])
}
Add(Time,14977008,280,161)
{
Point(DateTime)
}
Add(Math,5514823,287,231)
{
OpType=37
Op2=1
ResultType=0
link(onResult,11532965:doCalc,[(326,237)(326,335)(165,335)(165,300)])
link(Op1,14977008:DateTime,[])
}