• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

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

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Query
  • [Help] 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

• 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
• Bài trước Bài tiếp