• viết dùm mình code tính giá điện với
  • viết dùm mình code tính giá điện với

    chunam > 13-07-12, 05:52 PM

    Đề là:
    Nếu SốKW <=50 giá tính 500đ/kw.
    Nếu 50< SốKW <= 150 thì 50 số đầu tính 500đ/kw còn lại tính 600đ/kw.
    Nếu 150< SốKW <= 250 thì 50 số đầu tính 500đ/kw và 100 số tiếp theo tính giá 600đ/ KW còn lại tính 800đ/kw.
    Nếu SốKW >250 thì 50 số đầu tính 500đ/kw và 100 số tiếp theo tính giá 600đ/ KW và 100 tiếp theo tính 800đ/kw số còn lại tính 1000đ/kw.
    giúp mình với các bạn
  • RE: viết dùm mình code tính giá điện với

    Xuân Thanh > 13-07-12, 06:37 PM

    Mã:
    Function TienDien(SoDien As Double) As Double
        Dim Tien As Double
        If IsNumeric(SoDien) = False Then
            MsgBox "Phai la so", , "Thong Bao"
            Exit Function
        Else
            If SoDien <= 50 Then Tien = SoDien * 500
            If 50 < SoDien <= 150 Then Tien = 25000 + (SoDien - 50) * 600
            If 150 < SoDien <= 250 Then Tien = 85000 + (SoDien - 150) * 800
            If SoDien > 250 Then Tien = 165000 + (SoDien - 250) * 1000
        End If
        TienDien = Tien
    End Function