Вверх ↑
Разработчик
Ответов: 26151
Рейтинг: 2127
#1: 2009-04-24 13:45:51 ЛС | профиль | цитата
Pirr писал(а):
Лучше подскажите как мне получить текущую дату и отнять от неё 1 месяц или 31 день?


Вот так, но с вычитанием месяца я не отимизировал, может кто дооптимизирует. У нас Tad мастак по этой части


Add(MainForm,2953706,112,133)
{
Width=429
}
Add(Edit,15537034,329,252)
{
Left=250
Top=20
Width=160
Text=""
}
Add(Edit,487670,329,196)
{
Left=10
Top=20
Width=160
Text=""
}
Add(Edit,1612178,322,560)
{
Left=250
Top=50
Width=160
Text=""
}
Add(Button,6889523,112,252)
{
Left=175
Top=20
Width=70
Caption="- 31 день"
link(onClick,11843510:doOperation,[])
}
Add(Button,3783486,112,308)
{
Left=175
Top=50
Width=70
Caption="- 6 месяцев"
link(onClick,16211637:doEvent1,[])
}
Add(Time,8139752,203,133)
{
Format="D-M-Y h:m:s"
Point(DateTime)
}
Add(Timer,13997692,112,196)
{
link(onTimer,6470129:doConvert,[])
}
Add(Math,11843510,210,252)
{
OpType=1
Op2=31
link(onResult,5026686:doConvert,[])
link(Op1,14392089:Var2,[])
}
Add(DateConvertor,5026686,273,252)
{
Mode=9
link(onResult,15537034:doText,[])
}
Add(DateConvertor,12245655,217,308)
{
Point(Data)
Point(Year)
Point(Month)
Point(Day)
Point(Hour)
Point(Minute)
Point(Second)
link(Data,14392089:Var3,[(223,240)])
}
Add(GetDataEx,14392089,203,231)
{
link(Data,12980911:Var2,[])
}
Add(Hub,16211637,168,308)
{
OutCount=3
link(onEvent1,12245655:doConvert,[])
link(onEvent2,10517987:doOperation,[(203,321)(203,454)])
link(onEvent3,16135578:doAdd,[(195,328)(195,566)])
}
Add(Math,10517987,224,448)
{
OpType=1
Op2=6
ResultType=0
link(onResult,15278398:doCompare,[])
link(Op1,12245655:Month,[])
}
Add(MT_AddData,16135578,217,560)
{
Count=6
link(onAdd,6194514:doConvert,[])
link(Data1,3181257:Value,[(223,520)(475,520)])
link(Data2,6979343:Value,[(230,527)(608,527)])
link(Data3,12245655:Day,[])
link(Data4,12245655:Hour,[])
link(Data5,12245655:Minute,[])
link(Data6,12245655:Second,[])
}
Add(DateConvertor,6194514,273,560)
{
Mode=5
link(onResult,1612178:doText,[])
}
Add(DateConvertor,6470129,273,196)
{
Mode=9
Point(Data)
link(onResult,487670:doText,[])
link(Data,12980911:Var3,[(279,184)])
}
Add(GetDataEx,12980911,203,175)
{
link(Data,8139752:DateTime,[])
}
Add(Memory,3181257,469,448)
{
}
Add(If_else,15278398,273,448)
{
Type=4
Op2=Integer(1)
link(onTrue,2701597:doEvent1,[(316,454)(316,419)])
link(onFalse,377064:doOperation,[])
}
Add(Math,377064,322,455)
{
OpType=1
Op2=1
ResultType=0
link(onResult,10534102:doEvent1,[])
link(Op1,9303173:Var2,[])
}
Add(HubEx,13164612,392,441)
{
link(onEvent,16267154:doWork2,[])
}
Add(GetDataEx,9303173,315,364)
{
Angle=3
link(Data,12245655:Year,[(223,373)])
}
Add(Memory,6979343,602,462)
{
}
Add(Hub,10534102,364,455)
{
link(onEvent1,13164612:doWork3,[(396,461)])
link(onEvent2,16111886:doOperation,[])
}
Add(DoData,11640749,504,420)
{
link(onEventData,14850992:doWork1,[(585,426)])
link(Data,12318162:Var2,[])
}
Add(Hub,2701597,364,413)
{
OutCount=3
link(onEvent1,16463085:doData,[])
link(onEvent2,11640749:doData,[])
link(onEvent3,13164612:doWork1,[(396,433)])
}
Add(HubEx,14850992,581,455)
{
link(onEvent,6979343:doValue,[])
}
Add(DoData,16463085,406,413)
{
link(onEventData,16267154:doWork1,[(452,419)])
link(Data,9303173:Var3,[(412,373)])
}
Add(HubEx,16267154,448,441)
{
link(onEvent,3181257:doValue,[])
}
Add(Math,16111886,539,462)
{
Op2=12
ResultType=0
link(onResult,14850992:doWork2,[])
link(Op1,12318162:Var3,[(545,394)])
}
Add(GetDataEx,12318162,497,385)
{
Angle=3
link(Data,10517987:Result,[(343,394)(343,503)(230,503)])
}
карма: 22

0