Tad писал(а): Просто думать не хотим
может и прав. Набросал себе график. вот.
Да и разницу дней посчитал.
Add(MainForm,2953706,14,49) { Width=439 Height=405 } Add(DatePicker,2194114,168,98) { Left=5 Top=20 Width=120 Height=21 Enabled=1 Point(DateTime) Point(CurrentDateTime) } Add(DatePicker,13840391,224,98) { Left=285 Top=20 Width=120 Height=21 Point(DateTime) Point(CurrentDateTime) link(OnChange,652854:doOperation,[(261,104)(261,181)]) } Add(Math,652854,266,175) { OpType=1 ResultType=0 link(onResult,7212495:doText,[]) link(Op1,13840391:DateTime,[(272,153)(230,153)]) link(Op2,9824324:Var3,[(279,163)]) } Add(Edit,7212495,329,175) { Left=185 Top=20 Text="0" } Add(Label,16439788,14,98) { Left=145 Top=125 Width=115 Caption="График рабочих дней" } Add(Memo,10010707,329,245) { Left=145 Top=150 Width=100 Height=220 ScrollBars=2 } Add(For,564728,119,245) { link(onEvent,3450265:doNext,[]) link(End,7212495:Text,[(132,168)(335,168)]) } Add(GetDataEx,9824324,168,154) { Angle=3 link(Data,2194114:CurrentDateTime,[(181,163)]) } Add(Button,9512879,14,245) { Left=150 Top=95 Width=100 Caption="Показать" link(onClick,13457272:doEvent1,[]) } Add(Counter,3450265,175,245) { Min=10 Max=276447232 Step=2 Default=1864135111 Point(Min) Point(doMin) link(onNext,4141641:doConvert,[]) link(Min,9824324:Var2,[]) } Add(Hub,13457272,70,245) { link(onEvent1,3450265:doMin,[(133,251)(133,272)]) link(onEvent2,564728:doFor,[(102,258)(102,251)]) } Add(DateConvertor,4141641,266,245) { Mode=9 Format="dd-MM-yyyy" link(onResult,10010707:doAdd,[]) }
|