Cho hỏi về cách viết code về tính tiền lũy tiến

Thảo luận trong 'Ứng dụng Access' bắt đầu bởi duong_nhd, 8 Tháng ba 2006.

3,410 lượt xem

  1. duong_nhd

    duong_nhd Thành viên hoạt động

    Bài viết:
    10
    Đã được thích:
    0
    Nơi ở:
    VN
    Chào các bạn,
    tôi đang làm một chương trình thu tiền điện.
    Bây h tôi đang bí chổ tính tiền điện lũy tiến.
    Tôi viết = Access.

    vd: hộ A tháng này xài hết 300kw điện
    thì hóa đơn phải ghi là:

    100 x 550 = 55000
    50 x 900 = 45000
    50 x 1210 = 60500
    100 x 1340 = 134000


    Xin các bạn chỉ giúp cách viết code như thế nào.

    Xin cảm ơn
     
    #1
  2. CMSmember

    CMSmember Thành viên sơ cấp

    Bài viết:
    7
    Đã được thích:
    0
    Nơi ở:
    Hanoi
    Function tinhtien(sbd As Integer, skt As Integer) As Double
    Dim tong As Double, i As Integer
    tong = 0
    For i = 1 To skt - sbd
    If i <= 100 Then
    tong = tong + 550
    ElseIf i > 100 And i <= 150 Then
    tong = tong + 900
    ElseIf i > 150 And i <= 200 Then
    tong = tong + 1210
    ElseIf i > 200 Then
    tong = tong + 1340
    End If
    Next
    tinhtien = tong
    End Function
    Ban lam the nay cung duoc:dzo: Khi tach ra thi ban cung xu ly tren text box va dat rieng ra tung ham vd(function tinhtien0_100,function tinhtien101_150....) la duoc
     
    Last edited: 8 Tháng ba 2006
    #2
  3. HongViet

    HongViet Thành viên thân thiết

    Bài viết:
    286
    Đã được thích:
    10
    Nơi ở:
    Đà nẵng
    Theo mình hình dung bạn lập hoá đơn tiền điện; nó gồm 2 fần: phần chung & phần chi tiết, phải không?! Vậy report cũng phải có 2 phần tương ứng: chính & phụ; Phần chính gồm tên #h hàng, số tiền tổng & ~ liên quan;
    phần chi tiết cung cấp bỡi [DSách] như bạn liệt kê. Table [Dsách] này có thể tạo từ Hàm người dùng; Ta đưa tới hàm giá trị [TTien]; tuỳ thuộc vô TTien mà nó sẽ chép số dòng theo yêu cầu
    Hàm tiến hành xoá nội dung cũ; Update nội dung mới
    Mới gồm: Khi biết TTiền thì phân chi tiết các khoảng mục khi <100 thì thêm một dòng; <150 thêm dòng thứ 2. . . nếu đúng ý bạn thì bạn tiến hành nha!:friend:
     
    Last edited: 10 Tháng ba 2006
    #3
  4. duong_nhd

    duong_nhd Thành viên hoạt động

    Bài viết:
    10
    Đã được thích:
    0
    Nơi ở:
    VN
    Cám ơn các bạn nha
    mình đã làm dc rồi

    Many Thanks
     
    #4

Chia sẻ trang này