user_asm писал(а): надо либо помочь, либо промолчать. чёт не понял, я чем занимался  user_asm писал(а): Форум создан для обсуждения и помощи Да ладно, кому хоть сам то помог user_asm, один умный вещь скажу, ещё и не таких << помощников по*издеть >> в кавычках тут видывал, а если чем и обидел забей. Ну а если чем и помог то "сходи пописай, а то ночь на дворе однако"  --- Добавлено в 2017-12-03 01:49:49flint2, да я поправил для одарённых 
Add(DatePicker,3713768,91,70)
{
Left=20
Top=30
Width=135
Height=24
link(onChange,1721535:doEvent1,[])
}
Add(Edit,16145800,343,70)
{
Left=170
Top=95
Width=30
Text="0"
DataType=2
}
Add(DateConvertor,11075353,196,70)
{
Mode=9
Format="dd.MM.yyyy "
Point(Result)
}
Add(Button,8957237,203,168)
{
Left=15
Top=145
Width=130
Enabled=1
Caption="Счёт дней"
Point(doEnabled)
link(onClick,16465415:doWork,[])
}
Add(Label,14347521,91,203)
{
Left=20
Top=5
Width=110
Height=20
Caption="Начальная дата"
}
Add(DatePicker,12647910,406,168)
{
Left=20
Top=95
Width=135
Height=24
}
Add(Label,2383458,98,210)
{
Left=20
Top=70
Width=101
Height=20
Caption="Конечная дата"
}
Add(UpDown,14716132,294,70)
{
Left=200
Top=95
Max=1
Min=-1
link(onPosition,16145800:doText,[])
}
Add(Label,6308306,105,217)
{
Left=170
Top=75
Width=122
Height=20
Caption="+/- 1 рабочий день"
}
Add(Memo,8411243,343,217)
{
Left=310
Top=20
Width=265
Height=145
ScrollBars=2
}
Add(Button,1728302,203,224)
{
Left=160
Top=145
Width=130
Caption="Очистить список"
link(onClick,8411243:doClear,[])
}
Add(DateConvertor,5602767,343,168)
{
Mode=7
Format="dd.MM.yyyy "
Point(Result)
link(onResult,12647910:doSetDate,[])
}
Add(VBJScript,16465415,252,168)
{
WorkPoints=#6:doWork|
EventPoints=#9:onEndDate|5:onRes|
DataPoints=#7:StartDt|9:Timeframe|11:AmendmentDt|
Script=#18:Sub doWork(dt,idx)|0:|20:On Error Resume Next|0:|51: Dim intTotalDays, intWeekendDays, intBusinessDays|47: Dim intTimeframe, DtBegin, wDays, i, dtmStart|59: Const MAX_TOTAL_DAYS = 60 ' максимальный расчётный период|33: ' предустановка согластно схемы|15: dtmStart = 15|4: |31: ' проверка на валидность даты|34: If Not IsDate(sys.StartDt) Then |12: Exit Sub|8: End If|0:|19: ' читаем с точек |46: dtmStart = CDate(sys.StartDt) '- дата начала|60: ' кол-во дней c учётом срока и поправки +/- 1 рабочий день|65: intTimeframe = CInt(sys.Timeframe) + CInt(sys.AmendmentDt) |0:|24: DtBegin = dtmStart - 1|29: For i = 0 To MAX_TOTAL_DAYS|25: DtBegin = DtBegin + 1|44: wDays = DatePart("w", DtBegin, vbMonday)|35: intTotalDays = intTotalDays + 1|34: If wDays = 7 Or wDays = 6 Then|41: intWeekendDays = intWeekendDays + 1|8: Else|43: intBusinessDays = intBusinessDays + 1|44: If intBusinessDays = intTimeframe Then|16: Exit For|14: End If |10: End If|6: Next|20: ' вывод результата|61: sys.onRes "всего дней между двумя датами = " & intTotalDays|47: sys.onRes "выходных дней = " & intWeekendDays|47: sys.onRes "рабочих дней = " & intBusinessDays|29: sys.onEndDate CDbl(DtBegin)|3: |7:End Sub|
link(onEndDate,5602767:doConvert,[])
link(StartDt,11075353:Result,[(258,135)(202,135)])
link(Timeframe,3324218:EditText,[])
link(AmendmentDt,16145800:Text,[(272,135)(349,135)])
link(onRes,8411243:doAdd,[(308,181)(308,223)])
}
Add(ComboBox,3324218,245,56)
{
Left=170
Top=30
Width=95
Height=24
Strings=#2:15|2:20|2:25|
Text="15"
ReadOnly=0
Point(EditText)
}
Add(Label,12246042,112,224)
{
Left=170
Top=5
Width=36
Height=20
Caption="Срок"
}
Add(MainForm,8148382,91,133)
{
Width=598
Height=211
}
Add(Hub,1721535,147,70)
{
link(onEvent1,11075353:doConvert,[])
link(onEvent2,8957237:doEnabled,[(182,83)(182,174)])
}
|
Поиск
Друзья
Администрация