Em dùng format(abc,"#.##") nhưng vẫn không được

[ST-Lu!]

Em nghịch cái file để xuất hoá đơn tự in giờ bị vướng như sau
- Ví dụ: giá là 71,75 USD sau khi nhấn Ok thì thành tiền trước thuế lại là 72 USD
mặc dù em đã thêm đoạn code

Me.TextAmountbeforetax = Format(Me.TextAmountbeforetax, "#.##") '-------> Em da them doan nay ma ko duoc

Các Huynh xem file chỉ giúp

 

[ndu96081631]

Hãy giả lập 1 đoạn file và 1 cái Form đơn giản nhất, chỉ chứa những phần mà bạn đang gặp rắc rối thôi ---> Chứ đưa 1 đóng thế kia lên thì ai mà "nhai" cho nổi (mất kiên nhẩn)

 

[ST-Lu!]

Hãy giả lập 1 đoạn file và 1 cái Form đơn giản nhất, chỉ chứa những phần mà bạn đang gặp rắc rối thôi ---> Chứ đưa 1 đóng thế kia lên thì ai mà "nhai" cho nổi (mất kiên nhẩn)

If Right(Me.CombDiscription, 3) = "O.F" Then
                    amt20 = Me.txtCont20 * Me.txtP20
                    amt40 = Me.txtCont40 * Me.TxtP40
                    amt45 = Me.TxtCont45 * Me.TxtP45
                    Me.TextAmountbeforetax = (amt20 + amt40 + amt45)
                    Me.TextAmountbeforetax = Format(Me.TextAmountbeforetax, "#.##") '-------> Em da them doan nay ma ko duoc
                    Me.TextAmountAftertax = Round(Me.TextAmountbeforetax * (1 + Me.CombVAT), 2)
                    Me.TextAmountAftertax = Format(Me.TextAmountAftertax, "#,###.##")
                    Me.TextVATAmt = Round(Me.TextAmountbeforetax * Me.CombVAT, 2)
                   
              
                 End If

Kính gửi Anh
Ví dụ đoạn code trên nếu bên phải Combox 3 ký tự là O.F thì sẽ lấy số lượng từng loại container X với đơn giá
Trong hình như trên: Cont20 = 1, giá là 71.75$ nhưng không hiểu sao em nhấn ok
mà Textbox trước thuế lại làm tròn thành 72$. Mặc dù em đã thêm đoạn code Format

Anh chỉ cần chỉnh giúp em đoạn code trên còn trường hợp cònn lại em sẽ tương tự làm

 

[MinhNguyệt]

If Right(Me.CombDiscription, 3) = "O.F" Then
                    amt20 = Me.txtCont20 * Me.txtP20
                    amt40 = Me.txtCont40 * Me.TxtP40
                    amt45 = Me.TxtCont45 * Me.TxtP45
                    Me.TextAmountbeforetax = (amt20 + amt40 + amt45)
                    Me.TextAmountbeforetax = Format(Me.TextAmountbeforetax, "#.##") '-------> Em da them doan nay ma ko duoc
                    Me.TextAmountAftertax = Round(Me.TextAmountbeforetax * (1 + Me.CombVAT), 2)
                    Me.TextAmountAftertax = Format(Me.TextAmountAftertax, "#,###.##")
                    Me.TextVATAmt = Round(Me.TextAmountbeforetax * Me.CombVAT, 2)
 
 
                 End If

Kính gửi Anh
Ví dụ đoạn code trên nếu bên phải Combox 3 ký tự là O.F thì sẽ lấy số lượng từng loại container X với đơn giá
Trong hình như trên: Cont20 = 1, giá là 71.75$ nhưng không hiểu sao em nhấn ok
mà Textbox trước thuế lại làm tròn thành 72$. Mặc dù em đã thêm đoạn code Format

Anh chỉ cần chỉnh giúp em đoạn code trên còn trường hợp cònn lại em sẽ tương tự làm

Bạn Record macro xem nó viết cái gì là biết liền

 Me.TextAmountbeforetax = Format(Me.TextAmountbeforetax, "#,##0.00") 
.......
Me.TextAmountAftertax = Format(Me.TextAmountAftertax, "#,##0.00")

 

[ST-Lu!]

Hãy giả lập 1 đoạn file và 1 cái Form đơn giản nhất, chỉ chứa những phần mà bạn đang gặp rắc rối thôi ---> Chứ đưa 1 đóng thế kia lên thì ai mà "nhai" cho nổi (mất kiên nhẩn)

Hu hu
Đây là lần đầu tiền em cảm thấy anh Tuấn nổi nóng trên diễn đàn đó
Em đã cắt gọn tất cả rồi. Chỉ còn điều em muốn hỏi thôi
- Em xin lấy ví dụ nhé:
1. Tại text box số cont Q.ty nhập = 1
2. Tại text box giá nhập số lẻ = 1,58

Chọn mức thuế là 0%
Sau khi nhấn Ok --> text box amount = 2 anh ạ (hình như nó tự động làm tròn)

Có cách nào để nó vẫn nguyên 1,58 không?

Em cám ơn

 

[ndu96081631]

Hu hu
Đây là lần đầu tiền em cảm thấy anh Tuấn nổi nóng trên diễn đàn đó
Em đã cắt gọn tất cả rồi. Chỉ còn điều em muốn hỏi thôi
- Em xin lấy ví dụ nhé:
1. Tại text box số cont Q.ty nhập = 1
2. Tại text box giá nhập số lẻ = 1,58

Chọn mức thuế là 0%
Sau khi nhấn Ok --> text box amount = 2 anh ạ (hình như nó tự động làm tròn)

Có cách nào để nó vẫn nguyên 1,58 không?

Em cám ơn

Bạn Dim amt20 As Long nên chả trách nó đã làm tròn
Phải Dim amt20 As Double chứ

 

[ST-Lu!]

Bạn Dim amt20 As Long nên chả trách nó đã làm tròn
Phải Dim amt20 As Double chứ

Quỷ khóc thần sầu.
Cám ơn Anh NDU nhiều. Em loay hoay toát mồ hôi hột mà không hiểu tại sao.