Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] viết dùm mình code tính giá điện với
#1
Rainbow 
Đề 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
Chữ ký của chunam Xin chào, mình là chunam, Tham gia http://thuthuataccess.com/forum từ ngày 13-07 -12.
Reply
Những người đã cảm ơn
#2
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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , nhunguyet0103 , gialilama


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] PHÉP TÍNH TỔNG CỦA 2 QRERY xa.nguyen 1 59 22-03-17, 03:01 AM
Bài mới nhất: tranthanhan1962
  Giúp tính tồn kho theo ngày ledangvan 12 414 16-03-17, 03:35 PM
Bài mới nhất: tranthanhan1962
  Hướng Dẫn Demo Tính tồn kho ( rất chi tiết) maidinhdan 29 3,570 13-03-17, 07:51 AM
Bài mới nhất: tranthanhan1962
  [Help] Tính tổng giá trị trên một dòng. HoangManh 2 72 10-03-17, 05:48 PM
Bài mới nhất: HoangManh
  [Hỏi] Chạy code tự động theo thời gian mặc định minhriohtn 5 266 06-03-17, 05:47 AM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ