Đá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
Question [Help] Cần giúp đỡ tạo query lấy giá trị của dòng liền trước để tính giá trị trung bình luonguct 4 89 23-11-16, 12:33 AM
Bài mới nhất: luonguct
  [Hỏi] Tính số ngày công tác trangdv.pchg 25 581 13-11-16, 01:20 PM
Bài mới nhất: ongke0711
  Điền Mr hoặc Ms theo giới tính huuduy.duy 8 489 04-11-16, 05:58 PM
Bài mới nhất: huuduy.duy
  [Help] Tìm ngày tính lương ducanh.ktnb 18 549 15-10-16, 06:45 PM
Bài mới nhất: ongke0711
  [Help] Tính tổng theo điều kiện các trường trong nhiều table,đưa ra kết quả bignosevinatex 6 754 06-09-16, 10:56 PM
Bài mới nhất: maidinhdan

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ơ