建设项目环境影响评价咨询收费

Private Sub Command1_Click()

Dim K As Single

Dim TOTAL As Single

Dim fee1 As Single

Dim fee2 As Single

Dim fee6 As Single

Dim fee5 As Single

Dim K2 As Single

Dim kk As Single

TOTAL = Text1.Text



'Print "total=", TOTAL

TOTAL = TOTAL / 10000

   '开始计算

If TOTAL < 0.3 Or TOTAL = 0.3 Then

   If Option1.Value = True Then

      fee1 = TOTAL / 0.3 (6 - 5) + 5

      fee2 = TOTAL / 0.3 (1.5 - 0.8) + 0.8

   End If

   If Option2.Value = True Then

      fee1 = TOTAL / 0.3 (2 - 1) + 1

      fee2 = TOTAL / 0.3 (0.8 - 0.5) + 0.5

   End If

ElseIf (TOTAL > 0.3 And TOTAL < 2) Or TOTAL = 2 Then

   If Option1.Value = True Then

      K = (15 - 6) / (2 - 0.3)

      fee1 = (TOTAL - 0.3) K + 6

      K2 = (3 - 1.5) / (2 - 0.3)

      fee2 = (TOTAL - 0.3) K2 + 1.5

   End If

   If Option2.Value = True Then

      K = (4 - 2) / (2 - 0.3)

      fee1 = (TOTAL - 0.3) K + 2

      K2 = (1.5 - 0.8) / (2 - 0.3)

      fee2 = (TOTAL - 0.3) K2 + 0.8

   End If

ElseIf (TOTAL > 2 And TOTAL < 10) Or TOTAL = 10 Then

   If Option1.Value = True Then

        K = (35 - 15) / (10 - 2)

        fee1 = K (TOTAL - 2) + 15

        K2 = (7 - 3) / (10 - 2)

        fee2 = K2 (TOTAL - 2) + 3

    End If

    If Option2.Value = True Then

      K = (7 - 4) / (10 - 2)

      fee1 = (TOTAL - 2) K + 4

       K2 = (2 - 1.5) / (10 - 2)

      fee2 = (TOTAL - 2) K2 + 1.5

   End If

ElseIf (TOTAL > 10 And TOTAL < 50) Or TOTAL = 50 Then

   If Option1.Value = True Then

        K = (75 - 35) / (50 - 10)

        fee1 = K (TOTAL - 10) + 35

        K2 = (9 - 7) / (50 - 10)

        fee2 = K2 (TOTAL - 10) + 7

    End If

     If Option2.Value = True Then

        fee1 = 7

        fee2 = 2

   End If

  

   

ElseIf (TOTAL > 50 And TOTAL < 100) Or TOTAL = 100 Then

   If Option1.Value = True Then

        K = (110 - 75) / (100 - 50)

        fee1 = K (TOTAL - 50) + 75

        K2 = (13 - 9) / (100 - 50)

        fee2 = K2 (TOTAL - 50) + 9

    End If

   

    If Option2.Value = True Then

        fee1 = 7

        fee2 = 2

   End If

  

ElseIf TOTAL > 100 Then

   If Option1.Value = True Then

        fee1 = 110

        fee2 = 13

    End If

    If Option2.Value = True Then

        fee1 = 7

        fee2 = 2

   End If

Else

   MsgBox "请检查数据输入！"

   fee1 = 0

End If



'Print fee1

'Print k

  kk = fee1

  '表1\表2的行业调整系数

  If Option5.Value = True Then

      fee5 = fee1 0.2

     If Option10.Value = True Then

       fee6 = fee1 0.2

      ElseIf Option11.Value = True Then

       fee6 = fee1 (-0.2)

       Else

      End If

      fee1 = fee5 + fee6 + fee1

    End If

   

    If Option6.Value = True Then

      fee5 = fee1 0.1

     If Option10.Value = True Then

       fee6 = fee1 0.2

      ElseIf Option11.Value = True Then

       fee6 = fee1 (-0.2)

       Else

      End If

      fee1 = fee5 + fee6 + fee1

    End If

   

    If Option7.Value = True Then

      fee5 = fee1 0

     If Option10.Value = True Then

       fee6 = fee1 0.2

      ElseIf Option11.Value = True Then

       fee6 = fee1 (-0.2)

       Else

      End If

      fee1 = fee5 + fee6 + fee1

    End If

   

    If Option8.Value = True Then

      fee5 = fee1 (-0.2)

     If Option10.Value = True Then

       fee6 = fee1 0.2

      ElseIf Option11.Value = True Then

       fee6 = fee1 (-0.2)

       Else

      End If

      fee1 = fee5 + fee6 + fee1

    End If

   

    If Option9.Value = True Then

      fee5 = fee1 (-0.4)

     If Option10.Value = True Then

       fee6 = fee1 0.2

      ElseIf Option11.Value = True Then

       fee6 = fee1 (-0.2)

       Else

      End If

      fee1 = fee5 + fee6 + fee1

    End If

   

    If Option2.Value = True Then

       total2 = Text2.Text

       fee1 = kk total2 * 0.5 + kk

       Else

       fee1 = fee1

    End If

   

   fee1 = Format(fee1, "#####.####")

  fee2 = Format(fee2, "#####.#####")

   

    '格式化输出

 If Option1.Value = True Then

    B = "    编制环境影响报告书(含大纲)的费用约为:" & fee1 & "万元"

    B = B & vbLf & "    评估环境影响报告书(含大纲)的费用约为:" & fee2 & "万元"

    B = B & vbLf & "    注："

    B = B & vbLf & "    1、估算投资额为项目建议书上或可行性研究报告中的估算投资额"

    B = B & vbLf & "    2、以上计算出来的费用不包括遥感、遥测、风洞实验、污染气象观测、示踪实验、地探、物探、卫星图片解读、需要动用的船、飞机等特殊监测费用"

    RichTextBox1.Text = B

 End If

 

 If Option2.Value = True Then

    If TOTAL < 10 Or TOTAL = 10 Then

 B = "    编制环境影响报告表的费用为:" & fee1 & "万元"

  B = B & vbLf & "    评估环境影响报告表的费用为:" & fee2 & "万元"

      B = B & vbLf & "    注："

      B = B & vbLf & "    1、估算投资额为项目建议书上或可行性研究报告中的估算投资额"

      B = B & vbLf & "    2、以上计算出来的费用不包括遥感、遥测、风洞实验、污染气象观测、示踪实验、地探、物探、卫星图片解读、需要动用的船、飞机等特殊监测费用"

    RichTextBox1.Text = B

    ElseIf TOTAL > 10 Then

    B = "    编制环境影响报告表的费用为:" & "7万元以上，计价格[2002]125号文件规定，好象没有上限！"

    B = B & vbLf & "    评估环境影响报告表的费用为:" & "2万元以上，计价格[2002]125号文件规定，好象没有上限！"

    B = B & vbLf & "    注："

    B = B & vbLf & "    1、估算投资额为项目建议书上或可行性研究报告中的估算投资额"

    B = B & vbLf & "    2、以上计算出来的费用不包括遥感、遥测、风洞实验、污染气象观测、示踪实验、地探、物探、卫星图片解读、需要动用的船、飞机等特殊监测费用"

    RichTextBox1.Text = B

  Else

  End If

End If

End Sub



Private Sub Form_Load()

Option1.Value = True

Option3.Value = False

Option5.Value = True

Option10.Value = True

End Sub



Private Sub Option1_Click()

   Frame1.Visible = True

   Frame2.Visible = True

   Frame4.Visible = False

   Label9.Visible = False

   Text2.Visible = False

End Sub



Private Sub Option2_Click()

   Frame1.Visible = False

   Frame2.Visible = False

   Frame4.Visible = True

   Label9.Visible = True

   Text2.Visible = True

   Option3.Value = True

End Sub



Private Sub Option3_Click()

Text2.Locked = False

End Sub



Private Sub Option4_Click()

Text2.Text = 0

Text2.Locked = True

End Sub