فاتورة الكهرباء

 Function My_Facture(Myfact As Long, n1 As Integer, n2 As Integer, n3 As Integer, n4 As Integer) As Long

''''''''''''''''''''''''''''''''''''''''''

Select Case Myfact

        Case Is <= 70

          How_Many = Myfact * n1

        Case Is <= 80

          How_Many = (70 * n1) + (Myfact - 70) * n2

         Case Is <= 200

         How_Many = (70 * n1) + (10 * n2) + (Myfact - 80) * n3

        Case Is > 200

     How_Many = (70 * n1) + (10 * n2) + (120 * n3) + (Myfact - 200) * n4

  End Select

 

 My_Facture = How_Many

''''''''''''''''''''''''''''''''''''''''

 End Function