Cách nào tạm tính thuế VAT trên texbox, định dạng Curentcy?

  • Thread starter heroic
  • Ngày gửi
H

heroic

Guest
11/11/04
56
0
0
vn
Khi thiết kế trên form nhập tổng tiền vào textbox tổng tiền thì Tiền VAT sẽ tạm tính theo giá trị khi mình nhập là ...% của VAT đó. Nếu mình sửa đổi cho không lẻ với số tiền trên hoá đơn thì nó sẽ nhận giá trị mới.
Mong các Pro chỉ giáo em với, cả việc nhận hàng trăm chục đơn vị nữa.
100.000.000.000 thay vì 100000000000 khó coi quá đi>
 
Khóa học Quản trị dòng tiền
H

heroic

Guest
11/11/04
56
0
0
vn
Tạm tính thuế VAT?

Em đang xây dựng một form nhập hoá đơn.
có 3 textbox: %VAT, tongtien, tienthueVAT.

Em muốn khi em nhập tổng tiền, rồi em nhập %VAT thì tiền thuế sẽ tự điền hiện lên bằng cách tongtien x %VAT = ? nhưng có thể tiền thuế trên hoá đơn không chính xác như máy tự tính. Có thể phải sửa đổi phần dư hoặc dịch chuyển thay đổi giá trị tienthueVAT. Và em muốn khi ấn nút nhập thì nó sẽ lấy giá trị em nhập vào. Đó là trường hợp hay làm mà.

Cám ơn anh tuankctdcn nhé em đã định dạng được textbox tiền rồi!
 
T

Tuanktcdcn

Lão già ham vui
18/6/04
549
52
28
47
Hà Nội
www.bluesofts.net
heroic nói:
Em đang xây dựng một form nhập hoá đơn.
có 3 textbox: %VAT, tongtien, tienthueVAT.

Em muốn khi em nhập tổng tiền, rồi em nhập %VAT thì tiền thuế sẽ tự điền hiện lên bằng cách tongtien x %VAT = ? nhưng có thể tiền thuế trên hoá đơn không chính xác như máy tự tính. Có thể phải sửa đổi phần dư hoặc dịch chuyển thay đổi giá trị tienthueVAT. Và em muốn khi ấn nút nhập thì nó sẽ lấy giá trị em nhập vào. Đó là trường hợp hay làm mà.

Cám ơn anh tuankctdcn nhé em đã định dạng được textbox tiền rồi!

Bạn tạo 4 Textbox có các tên Tongtien, TSVAT, TienThueVAT, TiengomVAT

Sau đó tạo các Event như thế này:

Private Sub UpdateValue()
TienThueVAT.Value = Val(Tongtien.Value) * Val(TSVAT.Value) / 100
TiengomVAT.Value = Val(Tongtien.Value) + Val(TienThueVAT.Value)
End Sub
'============================
Private Sub Tongtien_AfterUpdate()
UpdateValue
End Sub
'============================
Private Sub TSVAT_AfterUpdate()
UpdateValue
End Sub
'============================
 
H

heroic

Guest
11/11/04
56
0
0
vn
OK rồi chạy rất good!

Cảm ơn anh tuấn nhiều nhé thế là form nhập của em OK rồi. Lần mò mãi viết cũng chưa ra. Đây là bài mọi người có thể tham khảo học hỏi rất nhiều đó vì chúng ta thường phải tính giá trị VAT tạm thời. Và khi muốn hiện số có phân cách thì làm theo hướng dẫn phía dưới. Còn muốn nhập mà hiển thị luôn thì thêm một label nữa là nhập đến hàng đơn vị nào nó sẽ cũng hiện ra.
 
adam_tran

adam_tran

Guitar inspiration
17/5/05
1,374
36
48
46
Goooogle
hoangvudb nói:
Cái này là do bạn đinh dạng mà thôi, chỉ cần định dạnh lại là được
Vấn đề người ta có biết cách định dạng đâu, định dạng dữ liệu trong Text box chứ có phải định dạng 1 filed có kiểu là Number trong Access đâu!
 

Xem nhiều

Webketoan Zalo OA