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

  • Thread starter duong_nhd
  • Ngày gửi
D

duong_nhd

Thành viên sơ cấp
16/9/05
10
0
1
38
VN
#1
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
 
C

CMSmember

Thành viên sơ cấp
22/10/04
7
0
0
43
Hanoi
#2
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
 
Sửa lần cuối:
HongViet

HongViet

Thành viên thân thiết
10/11/05
286
10
18
Đà nẵng
#3
duong_nhd nói:
Tôi đang tính tiền điện lũy tiến 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.
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:
 
Sửa lần cuối:
D

duong_nhd

Thành viên sơ cấp
16/9/05
10
0
1
38
VN
#4
Cám ơn các bạn nha
mình đã làm dc rồi

Many Thanks
 

Thành viên trực tuyến

  • maithanhpham
  • ntv187
  • kophaithach2
  • dangthanhmai
  • MICA LIVINA
  • huong238
  • Vũ Thanh Tâm.ohio

Xem nhiều