-
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