Программный код для кнопки «Рассчитать экономию» формы «Замена ламп»

 

rav1 = Replace(ComboBox9.Text, ", ", "." )

rav2 = Replace(ComboBox10.Text, ", ", "." )

rav3 = Replace(ComboBox11.Text, ", ", "." )

rav4 = Replace(ComboBox12.Text, ", ", "." )

rav5 = Replace(ComboBox13.Text, ", ", "." )

rav6 = Replace(ComboBox14.Text, ", ", "." )

rav7 = Replace(ComboBox15.Text, ", ", "." )

rav8 = Replace(ComboBox16.Text, ", ", "." )

rev1 = Replace(ComboBox18.Text, ", ", "." )

rev2 = Replace(ComboBox19.Text, ", ", "." )

rev3 = Replace(ComboBox20.Text, ", ", "." )

rev4 = Replace(ComboBox21.Text, ", ", "." )

rev5 = Replace(ComboBox22.Text, ", ", "." )

rev6 = Replace(ComboBox23.Text, ", ", "." )

rev7 = Replace(ComboBox24.Text, ", ", "." )

rev8 = Replace(ComboBox25.Text, ", ", "." )

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

rfv2 = Replace(Text6.Text, ", ", "." )

rfv3 = Replace(Text10.Text, ", ", "." )

rfv4 = Replace(Text14.Text, ", ", "." )

rfv5 = Replace(Text18.Text, ", ", "." )

rfv6 = Replace(Text22.Text, ", ", "." )

rfv7 = Replace(Text26.Text, ", ", "." )

rfv8 = Replace(Text30.Text, ", ", "." )

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

rhv2 = Replace(Text8.Text, ", ", "." )

rhv3 = Replace(Text12.Text, ", ", "." )

rhv4 = Replace(Text16.Text, ", ", "." )

rhv5 = Replace(Text20.Text, ", ", "." )

rhv6 = Replace(Text24.Text, ", ", "." )

rhv7 = Replace(Text28.Text, ", ", "." )

rhv8 = Replace(Text32.Text, ", ", "." )

ran1 = Replace(ComboBox30.Text, ", ", "." )

ran2 = Replace(ComboBox31.Text, ", ", "." )

ran3 = Replace(ComboBox32.Text, ", ", "." )

ran4 = Replace(ComboBox33.Text, ", ", "." )

rfn1 = Replace(Text34.Text, ", ", "." )

rfn2 = Replace(Text38.Text, ", ", "." )

rfn3 = Replace(Text42.Text, ", ", "." )

rfn4 = Replace(Text46.Text, ", ", "." )

rhn1 = Replace(Text36.Text, ", ", "." )

rhn2 = Replace(Text40.Text, ", ", "." )

rhn3 = Replace(Text44.Text, ", ", "." )

rhn4 = Replace(Text48.Text, ", ", "." )

rzav1 = Replace(ComboBox44.Text, ", ", "." )

rzav2 = Replace(ComboBox45.Text, ", ", "." )

rzav3 = Replace(ComboBox46.Text, ", ", "." )

rzav4 = Replace(ComboBox47.Text, ", ", "." )

rzav5 = Replace(ComboBox48.Text, ", ", "." )

rzav6 = Replace(ComboBox49.Text, ", ", "." )

rzav7 = Replace(ComboBox50.Text, ", ", "." )

rzav8 = Replace(ComboBox51.Text, ", ", "." )

rzfv1 = Replace(Text49.Text, ", ", "." )

rzfv2 = Replace(Text52.Text, ", ", "." )

rzfv3 = Replace(Text55.Text, ", ", "." )

rzfv4 = Replace(Text58.Text, ", ", "." )

rzfv5 = Replace(Text61.Text, ", ", "." )

rzfv6 = Replace(Text64.Text, ", ", "." )

rzfv7 = Replace(Text67.Text, ", ", "." )

rzfv8 = Replace(Text70.Text, ", ", "." )

rzhv1 = Replace(Text51.Text, ", ", "." )

rzhv2 = Replace(Text54.Text, ", ", "." )

rzhv3 = Replace(Text57.Text, ", ", "." )

rzhv4 = Replace(Text60.Text, ", ", "." )

rzhv5 = Replace(Text63.Text, ", ", "." )

rzhv6 = Replace(Text66.Text, ", ", "." )

rzhv7 = Replace(Text69.Text, ", ", "." )

rzhv8 = Replace(Text72.Text, ", ", "." )

rzan1 = Replace(ComboBox56.Text, ", ", "." )

rzan2 = Replace(ComboBox57.Text, ", ", "." )

rzan3 = Replace(ComboBox58.Text, ", ", "." )

rzan4 = Replace(ComboBox59.Text, ", ", "." )

rzfn1 = Replace(Text73.Text, ", ", "." )

rzfn2 = Replace(Text76.Text, ", ", "." )

rzfn3 = Replace(Text79.Text, ", ", "." )

rzfn4 = Replace(Text82.Text, ", ", "." )

rzhn1 = Replace(Text75.Text, ", ", "." )

rzhn2 = Replace(Text78.Text, ", ", "." )

rzhn3 = Replace(Text81.Text, ", ", "." )

rzhn4 = Replace(Text84.Text, ", ", "." )

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

av1 = CDbl(Val(rav1))

av2 = CDbl(Val(rav2))

av3 = CDbl(Val(rav3))

av4 = CDbl(Val(rav4))

av5 = CDbl(Val(rav5))

av6 = CDbl(Val(rav6))

av7 = CDbl(Val(rav7))

av8 = CDbl(Val(rav8))

an1 = CDbl(Val(ran1))

an2 = CDbl(Val(ran2))

an3 = CDbl(Val(ran3))

an4 = CDbl(Val(ran4))

zav1 = CDbl(Val(rzav1))

zav2 = CDbl(Val(rzav2))

zav3 = CDbl(Val(rzav3))

zav4 = CDbl(Val(rzav4))

zav5 = CDbl(Val(rzav5))

zav6 = CDbl(Val(rzav6))

zav7 = CDbl(Val(rzav7))

zav8 = CDbl(Val(rzav8))

zan1 = CDbl(Val(rzan1))

zan2 = CDbl(Val(rzan2))

zan3 = CDbl(Val(rzan3))

zan4 = CDbl(Val(rzan4))

bv1 = CDbl(Val(Text1.Text))

bv2 = CDbl(Val(Text5.Text))

bv3 = CDbl(Val(Text9.Text))

bv4 = CDbl(Val(Text13.Text))

bv5 = CDbl(Val(Text17.Text))

bv6 = CDbl(Val(Text21.Text))

bv7 = CDbl(Val(Text25.Text))

bv8 = CDbl(Val(Text29.Text))

bn1 = CDbl(Val(Text33.Text))

bn2 = CDbl(Val(Text37.Text))

bn3 = CDbl(Val(Text41.Text))

bn4 = CDbl(Val(Text45.Text))

cv = CDbl(Val(Text85.Text))

cnz = CDbl(Val(Text86.Text))

cnl = CDbl(Val(Text87.Text))

dv = CDbl(Val(ComboBox17.Text))

dnz = CDbl(Val(ComboBox34.Text))

dnl = CDbl(Val(ComboBox35.Text))

ev1 = CDbl(Val(rev1))

ev2 = CDbl(Val(rev2))

ev3 = CDbl(Val(rev3))

ev4 = CDbl(Val(rev4))

ev5 = CDbl(Val(rev5))

ev6 = CDbl(Val(rev6))

ev7 = CDbl(Val(rev7))

ev8 = CDbl(Val(rev8))

fv1 = CDbl(Val(rfv1))

fv2 = CDbl(Val(rfv2))

fv3 = CDbl(Val(rfv3))

fv4 = CDbl(Val(rfv4))

fv5 = CDbl(Val(rfv5))

fv6 = CDbl(Val(rfv6))

fv7 = CDbl(Val(rfv7))

fv8 = CDbl(Val(rfv8))

fn1 = CDbl(Val(rfn1))

fn2 = CDbl(Val(rfn2))

fn3 = CDbl(Val(rfn3))

fn4 = CDbl(Val(rfn4))

zfv1 = CDbl(Val(rzfv1))

zfv2 = CDbl(Val(rzfv2))

zfv3 = CDbl(Val(rzfv3))

zfv4 = CDbl(Val(rzfv4))

zfv5 = CDbl(Val(rzfv5))

zfv6 = CDbl(Val(rzfv6))

zfv7 = CDbl(Val(rzfv7))

zfv8 = CDbl(Val(rzfv8))

zfn1 = CDbl(Val(rzfn1))

zfn2 = CDbl(Val(rzfn2))

zfn3 = CDbl(Val(rzfn3))

zfn4 = CDbl(Val(rzfn4))

gv1 = CDbl(Val(Text3.Text))

gv2 = CDbl(Val(Text7.Text))

gv3 = CDbl(Val(Text11.Text))

gv4 = CDbl(Val(Text15.Text))

gv5 = CDbl(Val(Text19.Text))

gv6 = CDbl(Val(Text23.Text))

gv7 = CDbl(Val(Text27.Text))

gv8 = CDbl(Val(Text31.Text))

gn1 = CDbl(Val(Text35.Text))

gn2 = CDbl(Val(Text39.Text))

gn3 = CDbl(Val(Text43.Text))

gn4 = CDbl(Val(Text47.Text))

zgv1 = CDbl(Val(Text50.Text))

zgv2 = CDbl(Val(Text53.Text))

zgv3 = CDbl(Val(Text56.Text))

zgv4 = CDbl(Val(Text59.Text))

zgv5 = CDbl(Val(Text62.Text))

zgv6 = CDbl(Val(Text65.Text))

zgv7 = CDbl(Val(Text68.Text))

zgv8 = CDbl(Val(Text71.Text))

zgn1 = CDbl(Val(Text74.Text))

zgn2 = CDbl(Val(Text77.Text))

zgn3 = CDbl(Val(Text80.Text))

zgn4 = CDbl(Val(Text83.Text))

hv1 = CDbl(Val(rhv1))

hv2 = CDbl(Val(rhv2))

hv3 = CDbl(Val(rhv3))

hv4 = CDbl(Val(rhv4))

hv5 = CDbl(Val(rhv5))

hv6 = CDbl(Val(rhv6))

hv7 = CDbl(Val(rhv7))

hv8 = CDbl(Val(rhv8))

hn1 = CDbl(Val(rhn1))

hn2 = CDbl(Val(rhn2))

hn3 = CDbl(Val(rhn3))

hn4 = CDbl(Val(rhn4))

zhv1 = CDbl(Val(rzhv1))

zhv2 = CDbl(Val(rzhv2))

zhv3 = CDbl(Val(rzhv3))

zhv4 = CDbl(Val(rzhv4))

zhv5 = CDbl(Val(rzhv5))

zhv6 = CDbl(Val(rzhv6))

zhv7 = CDbl(Val(rzhv7))

zhv8 = CDbl(Val(rzhv8))

zhn1 = CDbl(Val(rzhn1))

zhn2 = CDbl(Val(rzhn2))

zhn3 = CDbl(Val(rzhn3))

zhn4 = CDbl(Val(rzhn4))

tarif = CDbl(Val(rtarif))

nameorg = CDbl(Val(Text90.Text))

y = CDbl(Val(ry))

kvartal = CDbl(Val(rkvartal))

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

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

IfComboBox1.Text = " Дуговыертутные (ДРЛ)" Then

fv1 = CDbl(Val(rfv1))

ElseIfComboBox1.Text = " Кварцевыегалогенные (КГ)" Then

fv1 = CDbl(1)

ElseIfComboBox1.Text = " Лампынакаливания (ЛОН)" Then

fv1 = CDbl(1)

ElseIfComboBox1.Text = " Люминесцентные (ЛЛ)" Then

fv1 = CDbl(Val(rfv1))

ElseIfComboBox1.Text = " Металлогалогенные (ДРИ)" Then

fv1 = CDbl(Val(rfv1))

ElseIfComboBox1.Text = " Натриевыевысокогодавления (ДНа)" Then

fv1 = CDbl(Val(rfv1))

ElseIfComboBox1.Text = " Натриевыенизкогодавления (SOX)" Then

fv1 = CDbl(Val(rfv1))

ElseIfComboBox1.Text = " Ртутно-вольфрамовые (ДРВ)" Then

fv1 = CDbl(1)

ElseIfComboBox1.Text = " Ртутныетрубчатые (ДРТ)" Then

fv1 = CDbl(Val(rfv1))

ElseIf ComboBox1.Text = " Светодиодные (LED)" Then

fv1 = CDbl(Val(rfv1))

End If

If (ComboBox1.Text < > " " Or ComboBox2.Text < > " " Or ComboBox3.Text < > " " Or ComboBox4.Text < > " " Or ComboBox5.Text < > " " Or ComboBox6.Text < > " " Or ComboBox7.Text < > " " Or ComboBox8.Text < > " " Or ComboBox26.Text < > " " Or ComboBox27.Text < > " " Or ComboBox28.Text < > " " Or ComboBox29.Text < > " " ) Then

If (ComboBox36.Text = " " And ComboBox1.Text < > " " ) Or (ComboBox36.Text < > " " And ComboBox1.Text = " " ) Then

RetInt = MsgBox(" Лампа №1 из таблицы < Внутреннее освещение> должна заменяться лампой №1 из таблицы < Замена ламп на энергосберегающие(внутреннее освещение)>. Необходимо исправить ошибку! ", vbOKOnly, " Ошибочка вышла" )

ElseIf (ComboBox37.Text = " " AndComboBox2.Text< > " " ) Or (ComboBox37.Text< > " " AndComboBox2.Text = " " ) Then

RetInt = MsgBox(" Лампа №2 из таблицы < Внутреннее освещение> должна заменяться лампой №2 из таблицы < Замена ламп на энергосберегающие(внутреннее освещение)>. Необходимо исправить ошибку! ", vbOKOnly, " Ошибочка вышла" )

Else

I = (zgv1 * bv1 + zgv2 * bv2 + zgv3 * bv3 + zgv4 * bv4 + zgv5 * bv5 + zgv6 * bv6 + zgv7 * bv7 + zgv8 * bv8 + zgn1 * bn1 + zgn2 * bn2 + zgn3 * bn3 + zgn4 * bn4 + 17 * (bv1 + bv2 + bv3 + bv4 + bv5 + bv6 + bv7 + bv8 + bn1 + bn2 + bn3 + bn4)) / 1000

I1 = Round(I, 1)

Text93.Text = I1

j = (av1 * bv1 * cv * dv * ev1 * fv1 - zav1 * bv1 * cv * dv * ev1 * zfv1 + av2 * bv2 * cv * dv * ev2 * fv2 - zav2 * bv2 * cv * dv * ev2 * zfv2 + av3 * bv3 * cv * dv * ev3 * fv3 - zav3 * bv3 * cv * dv * ev3 * zfv3 + av4 * bv4 * cv * dv * ev4 * fv4 - zav4 * bv4 * cv * dv * ev4 * zfv4 + av5 * bv5 * cv * dv * ev5 * fv5 - zav5 * bv5 * cv * dv * ev5 * zfv5 + av6 * bv6 * cv * dv * ev6 * fv6 - zav6 * bv6 * cv * dv * ev6 * zfv6 + av7 * bv7 * cv * dv * ev7 * fv7 - zav7 * bv7 * cv * dv * ev7 * zfv7 + av8 * bv8 * cv * dv * ev8 * fv8 - zav8 * bv8 * cv * dv * ev8 * zfv8 + an1 * bn1 * (cnz * dnz + cnl * dnl) * fn1 - zan1 * bn1 * (cnz * dnz + cnl * dnl) * zfn1 + an2 * bn2 * (cnz * dnz + cnl * dnl) * fn2 - zan2 * bn2 * (cnz * dnz + cnl * dnl) * zfn2 + an3 * bn3 * (cnz * dnz + cnl * dnl) * fn3 - zan3 * bn3 * (cnz * dnz + cnl * dnl) * zfn3 + an4 * bn4 * (cnz * dnz + cnl * dnl) * fn4 - zan4 * bn4 * (cnz * dnz + cnl * dnl) * zfn4) / 1000000

 

J1 = Round(j, 2)

Text94.Text = J1

 

If hv1 < > 0 And zhv1 < > 0 Then

K1 = bv1 * cv * dv * gv1 / (hv1 * 1000) - bv1 * cv * dv * zgv1 / (zhv1 * 1000)

End If

If hv2 < > 0 And zhv2 < > 0 Then

K2 = bv2 * cv * dv * gv2 / (hv2 * 1000) - bv2 * cv * dv * zgv2 / (zhv2 * 1000)

End If

If hv3 < > 0 And zhv3 < > 0 Then

K3 = bv3 * cv * dv * gv3 / (hv3 * 1000) - bv3 * cv * dv * zgv3 / (zhv3 * 1000)

End If

If hv4 < > 0 And zhv4 < > 0 Then

K4 = bv4 * cv * dv * gv4 / (hv4 * 1000) - bv4 * cv * dv * zgv4 / (zhv4 * 1000)

End If

If hv5 < > 0 And zhv5 < > 0 Then

K5 = bv5 * cv * dv * gv5 / (hv5 * 1000) - bv5 * cv * dv * zgv5 / (zhv5 * 1000)

End If

If hv6 < > 0 And zhv6 < > 0 Then

K6 = bv6 * cv * dv * gv6 / (hv6 * 1000) - bv6 * cv * dv * zgv6 / (zhv6 * 1000)

End If

If hv7 < > 0 And zhv7 < > 0 Then

K7 = bv7 * cv * dv * gv7 / (hv7 * 1000) - bv7 * cv * dv * zgv7 / (zhv7 * 1000)

End If

If hv8 < > 0 And zhv8 < > 0 Then

K8 = bv8 * cv * dv * gv8 / (hv8 * 1000) - bv8 * cv * dv * zgv8 / (zhv8 * 1000)

End If

 

If hn1 < > 0 And zhn1 < > 0 Then

K9 = bn1 * (cnl * dnl + cnz * dnz) * gn1 / (hn1 * 1000) - bn1 * (cnl * dnl + cnz * dnz) * zgn1 / (zhn1 * 1000)

End If

If hn2 < > 0 And zhn2 < > 0 Then

K10 = bn2 * (cnl * dnl + cnz * dnz) * gn2 / (hn2 * 1000) - bn2 * (cnl * dnl + cnz * dnz) * zgn2 / (zhn2 * 1000)

End If

If hn3 < > 0 And zhn3 < > 0 Then

K11 = bn3 * (cnl * dnl + cnz * dnz) * gn3 / (hn3 * 1000) - bn3 * (cnl * dnl + cnz * dnz) * zgn3 / (zhn3 * 1000)

End If

If hn4 < > 0 And zhn4 < > 0 Then

K12 = bn4 * (cnl * dnl + cnz * dnz) * gn4 / (hn4 * 1000) - bn4 * (cnl * dnl + cnz * dnz) * zgn4 / (zhn4 * 1000)

End If

K13 = j * tarif * 1000

K = (K1 + K2 + K3 + K4 + K5 + K6 + K7 + K8 + K9 + K10 + K11 + K12 + K13) / 1000

K = Round(K, 1)

Text95.Text = K

IfCheck1.Value = FalseThen

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

Select Case dr

Case VbMsgBoxResult.vbYes

strDatebase1 = " Provider=Microsoft.ace.OLEDB.12.0; Data Source=" & App.Path& " \апрель.accdb; "

Adodc8.ConnectionString = strDatebase1

Adodc8.RecordSource = " [Заменаламп]"

Set DataGrid26.DataSource = Adodc8

If Adodc8.Recordset.BOF = True Then

Adodc8.Recordset.AddNew

Adodc8.Recordset.Fields(1) = Text90.Text

Adodc8.Recordset.Fields(2) = I1

Adodc8.Recordset.Fields(3) = J1

Adodc8.Recordset.Fields(4) = K

Adodc8.Recordset.AddNew

Else

Adodc8.Recordset.AddNew

Adodc8.Recordset.Fields(1) = Text90.Text

Adodc8.Recordset.Fields(2) = I1

Adodc8.Recordset.Fields(3) = J1

Adodc8.Recordset.Fields(4) = K

End If

Command3_Click

Command7_Click

Command5_Click

Command4_Click

Command8_Click

Command6_Click

Command9_Click

Command12_Click

Case VbMsgBoxResult.vbNo

End Select

Else

strDatebase1 = " Provider=Microsoft.ace.OLEDB.12.0; Data Source=" & App.Path& " \апрель.accdb; "

Adodc8.ConnectionString = strDatebase1

Adodc8.RecordSource = " [Заменаламп]"

Set DataGrid26.DataSource = Adodc8

 

If Adodc8.Recordset.BOF = True Then

Adodc8.Recordset.AddNew

Adodc8.Recordset.Fields(1) = Text90.Text

Adodc8.Recordset.Fields(2) = I1

Adodc8.Recordset.Fields(3) = J1

Adodc8.Recordset.Fields(4) = K

Adodc8.Recordset.AddNew

Else

Adodc8.Recordset.AddNew

Adodc8.Recordset.Fields(1) = Text90.Text

Adodc8.Recordset.Fields(2) = I1

Adodc8.Recordset.Fields(3) = J1

Adodc8.Recordset.Fields(4) = K

End If

Command3_Click

Command7_Click

Command5_Click

Command4_Click

Command8_Click

Command6_Click

Command9_Click

Command12_Click

End If

End If

End If

Else

EndIf

ПРИЛОЖЕНИЕ Б

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

Поделиться: