Программный код кнопки «Рассчитать экономию» формы «Модернизация ИТП»

 

rpric1 = Replace(Text4.Text, ", ", "." )

rQgod = Replace(Text1.Text, ", ", "." )

rsrn = Replace(ComboBox1.Text, ", ", "." )

rsrp = Replace(ComboBox2.Text, ", ", "." )

rmint = Replace(ComboBox3.Text, ", ", "." )

rkolr = Replace(Text2.Text, ", ", "." )

rvih = Replace(Text3.Text, ", ", "." )

rdjina = Replace(ComboBox4.Text, ", ", "." )

Qgod = CDbl(Val(rQgod))

srn = CDbl(Val(rsrn))

srp = CDbl(Val(rsrp))

mint = CDbl(Val(rmint))

kolr = CDbl(Val(rkolr))

vih = CDbl(Val(rvih))

djina = CDbl(Val(rdjina))

rtarif = Replace(Text88.Text, ", ", "." )

ry = Replace(Text91.Text, ", ", "." )

rkvartal = Replace(Text92.Text, ", ", "." )

tarif = CDbl(Val(rtarif))

y = CDbl(Val(ry))

kvartal = CDbl(Val(rkvartal))

pric1 = CDbl(Val(rpric1))

qwiz = Qgod / ((kolr + vih) * 24)

If qwiz < 0.3 Then montaz1 = 2

If qwiz > = 0.3 And qwiz < 0.5 Then montaz1 = 2.5

If qwiz > = 0.5 And qwiz < 1 Then montaz1 = 2.7

If qwiz > = 0.1 And qwiz < 1.5 Then montaz1 = 3.5

If qwiz > = 1.5 And qwiz < 2 Then montaz1 = 3.9

If qwiz > = 2 And qwiz < 3 Then montaz1 = 4.95

If qwiz > = 3 And qwiz < 4 Then montaz1 = 6.3

If qwiz > = 4 And qwiz < 5 Then montaz1 = 8.3

If qwiz > = 5 And qwiz < 6 Then montaz1 = 10.16

If qwiz > = 6 And qwiz < 7 Then montaz1 = 12.2

If qwiz > = 7 And qwiz < 8 Then montaz1 = 14.2

If qwiz > = 8 And qwiz < 9 Then montaz1 = 15.95

If qwiz > = 9 And qwiz < 10 Then montaz1 = 17.95

If qwiz > = 10 Then montaz1 = 19.85

If (Text1.Text < > " " Or Text2.Text < > " " Or Text3.Text < > " " Or Text4.Text < > " " Or ComboBox1.Text < > " " Or ComboBox2.Text < > " " Or ComboBox3.Text < > " " Or ComboBox4.Text < > " " ) And (ComboBox1.Text = " " Or ComboBox2.Text = " " Or ComboBox3.Text = " " Or ComboBox4.Text = " " Or Text1.Text = " " Or Text2.Text = " " Or Text3.Text = " " Or Text4.Text = " " ) Then

RetInt = MsgBox(" Вы заполнили не все поля таблицы! Будьте внимательней! ", vbOKOnly, " Ошибочка вышла" )

ElseIf Text89.Text = " " Then

RetInt = MsgBox(" Вы забыли ввести источник финансирования мероприятия! ", vbOKOnly, " Ошибочка вышла" )

ElseIf Text88.Text = " " Then

If Text90.Text = " " And Text91.Text = " " And Text92.Text = " " Then RetInt = MsgBox(" Введите размер тарифа, наименование организации Заказчика, а также год и квартал внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" )

If Text90.Text < > " " And Text91.Text = " " And Text92.Text = " " Then RetInt = MsgBox(" Введите размер тарифа, а также год и квартал внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" )

If Text90.Text = " " And Text91.Text < > " " And Text92.Text = " " Then RetInt = MsgBox(" Введите размер тарифа, наименование организации Заказчика, а также квартал внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" )

If Text90.Text = " " And Text91.Text = " " And Text92.Text < > " " Then RetInt = MsgBox(" Введите размер тарифа, наименование организации Заказчика, а также год внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" )

If Text90.Text < > " " And Text91.Text < > " " And Text92.Text = " " Then RetInt = MsgBox(" Введите размер тарифа, а также квартал внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" )

If Text90.Text < > " " And Text91.Text = " " And Text92.Text < > " " Then RetInt = MsgBox(" Введите размер тарифа, а также год внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" )

If Text90.Text = " " And Text91.Text < > " " And Text92.Text < > " " Then RetInt = MsgBox(" Введите размер тарифа и наименование организации Заказчика! ", vbOKOnly, " Ошибочка вышла" )

If Text90.Text < > " " And Text91.Text < > " " And Text92.Text < > " " Then RetInt = MsgBox(" Введитеразмертарифа! ", vbOKOnly, " Ошибочкавышла" )

ElseIf Text90.Text = " " Then

If Text91.Text = " " And Text92.Text = " " Then RetInt = MsgBox(" ВведитенаименованиеорганизацииЗаказчика, атакжегодикварталвнедрениямероприятия! ", vbOKOnly, " Ошибочкавышла" )

If Text91.Text < > " " And Text92.Text = " " Then RetInt = MsgBox(" ВведитенаименованиеорганизацииЗаказчика, атакжекварталвнедрениямероприятия! ", vbOKOnly, " Ошибочкавышла" )

If Text91.Text = " " And Text92.Text < > " " Then RetInt = MsgBox(" Введите наименование организации Заказчика, а также год внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" )

If Text91.Text < > " " And Text92.Text < > " " Then RetInt = MsgBox(" Введите наименование организации Заказчика! ", vbOKOnly, " Ошибочка вышла" )

ElseIf Text91.Text = " " Then

If Text92.Text = " " Then RetInt = MsgBox(" Введите год и квартал внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" )

If Text92.Text < > " " Then RetInt = MsgBox(" Введите год внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" )

ElseIf Text92.Text = " " Then RetInt = MsgBox(" Введите квартал внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" )

Else

c = CSng(y)

d = CSng(kvartal)

If c < > Round(c) And d < > Round(d) Then

RetInt = MsgBox(" Год внедрения - целое число от 1 до 5.Квартал внедрения - целое число от 1 до 4! ", vbOKOnly, " Ошибочка вышла" )

ElseIf c = Round(c) And d < > Round(d) Then

RetInt = MsgBox(" Квартал внедрения - целое число от 1 до 4! ", vbOKOnly, " Ошибочка вышла" )

ElseIf c < > Round(c) And d = Round(d) Then

RetInt = MsgBox(" Год внедрения - целое число от 1 до 5! ", vbOKOnly, " Ошибочка вышла" )

ElseIf y > 5 And kvartal > 4 Then

RetInt = MsgBox(" Расчет идет для первых пяти лет после Базового года, исправьте год внедрения мероприятия! Кварталов в году только четыре! ", vbOKOnly, " Ошибочка вышла" )

ElseIf y > 5 Then

RetInt = MsgBox(" Расчет идет для первых пяти лет после Базового года, исправьте год внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" )

ElseIf kvartal > 4 Then

RetInt = MsgBox(" Кварталов в году только четыре! ", vbOKOnly, " Ошибочка вышла" )

ElseIf y = 5 And (kvartal = 3 Or kvartal = 4) Then

RetInt = MsgBox(" Нет смысла рассчитывать показатели энергоэффективности для половины года! 5 год - последний отчетный год! ", vbOKOnly, " Ошибочка вышла" )

Else

Fin = pric1 + montaz1

Fin = Round(Fin, 1)

Text93.Text = Fin

Ekok = 0.07 * Qgod + Qgod - kolr * ((Qgod / ((kolr + vih) * 24)) * djina + (Qgod / ((kolr + vih) * 24)) * ((mint - srn) / (srp - srn)) * (24 - djina)) - (Qgod / ((kolr + vih) * 24)) * ((mint - srn) / (srp - srn)) * vih

Ekos = (tarif * Ekok) / 1000

Ekok = Round(Ekok, 2)

Text94.Text = Ekok

Ekos = Round(Ekos, 1)

Text95.Text = Ekos

If Check3.Value = 0 Then

dr = MsgBox(" Записать рассчитанные данные в Базу Данных Access, в таблицы Excel, в документ Word? ", vbYesNo, " Важно" )

Select Case dr

Case VbMsgBoxResult.vbYes

strDatebase1 = " Provider=Microsoft.ace.OLEDB.12.0; Data Source=" & App.Path & " \Энергоаудит.accdb; "

Adodc1.ConnectionString = strDatebase1

Adodc1.RecordSource = " [МодернизацияИТП]"

Set DataGrid1.DataSource = Adodc1

Adodc1.Recordset.AddNew

Adodc1.Recordset.fields(1) = Text90.Text

Adodc1.Recordset.fields(2) = Fin

Adodc1.Recordset.fields(3) = Ekok

Adodc1.Recordset.fields(4) = Ekos

Adodc1.Recordset.Update

Command1_Click

Command3_Click

Command5_Click

RetInt = MsgBox(" Данные отправлены в паспорт программы энергосбережения! Приступайте к расчету следующего мероприятия! ", vbOKOnly, " Важно" )

Select Case RetInt

Case VbMsgBoxResult.vbOK

Form11.Show

Unload Form12

End Select

Case VbMsgBoxResult.vbNo

End Select

Else

strDatebase1 = " Provider=Microsoft.ace.OLEDB.12.0; Data Source=" & App.Path & " \Энергоаудит.accdb; "

Adodc1.ConnectionString = strDatebase1

Adodc1.RecordSource = " [МодернизацияИТП]"

Set DataGrid1.DataSource = Adodc1

Adodc1.Recordset.AddNew

Adodc1.Recordset.fields(1) = Text90.Text

Adodc1.Recordset.fields(2) = Fin

Adodc1.Recordset.fields(3) = Ekok

Adodc1.Recordset.fields(4) = Ekos

Adodc1.Recordset.Update

Command1_Click

Command3_Click

Command5_Click

Check3.Value = False

RetInt = MsgBox(" Данныеотправленывпаспортпрограммыэнергосбережения! Приступайтекрасчетуследующегомероприятия! ", vbOKOnly, " Важно" )

Select Case RetInt

Case VbMsgBoxResult.vbOK

Form11.Show

Unload Form12

End Select

End If

End If

End If

 

ПРИЛОЖЕНИЕ З

⇐ Предыдущая123456789Следующая ⇒

Поделиться: