Không cho kết quả đúng trên Form?

[Đặng Kim Ngọc]

Em có 1 ví dụ nhờ mọi người xem dùm cho: Không biết code sai chỗ nào mà kết quả không đúng?
Ví dụ:
- Nếu chọn số ngày tính: 25
- Lương cơ bản: 2.925.000
Vậy kết quả đúng phải là: 2.661.750
Em đã làm thế này:

Private Sub CommandButton25_Click()    
    Me.TextBox33.Value = Format(Val(Format(Me.TextBox22.Value, "0")) + (Val(Format(Me.TextBox23.Value, "0")) + Val(Format(Me.TextBox24.Value, "0")) _
    + Val(Format(Me.TextBox25.Value, "0")) + Val(Format(Me.TextBox26.Value, "0"))) - (Val(Format(Me.TextBox27.Value, "0")) + _
    Val(Format(Me.TextBox28.Value, "0")) - Val(Format(Me.TextBox29.Value, "0"))), "#,##0")
    Me.TextBox33 = Format(Me.TextBox33.Value, "#,##0")
    Me.TextBox30.Value = Me.TextBox33.Value
End Sub

 

[khoavu87]

Em có 1 ví dụ nhờ mọi người xem dùm cho: Không biết code sai chỗ nào mà kết quả không đúng?
Ví dụ:
- Nếu chọn số ngày tính: 25
- Lương cơ bản: 2.925.000
Vậy kết quả đúng phải là: 2.661.750
Em đã làm thế này:

Sao trong này mình chưa thấy bạn dùng đến số liệu trong combox3 nhỉ?

 

[Đặng Kim Ngọc]

Em có 1 ví dụ nhờ mọi người xem dùm cho: Không biết code sai chỗ nào mà kết quả không đúng?
Ví dụ:
- Nếu chọn số ngày tính: 25
- Lương cơ bản: 2.925.000
Vậy kết quả đúng phải là: 2.661.750
Em đã làm thế này:

Sao trong này mình chưa thấy bạn dùng đến số liệu trong combox3 nhỉ?[/QUOTE]

Ý mình là: Thu nhập = (Lương CB + (Phụ cấp 1 + Phụ cấp 2 + Phụ cấp 3 + Phụ cấp 4) - ( BHXH+BHYT+BHTN)

 

[khoavu87]

Ý mình là: Thu nhập = (Lương CB + (Phụ cấp 1 + Phụ cấp 2 + Phụ cấp 3 + Phụ cấp 4) - ( BHXH+BHYT+BHTN)

Kim ngọc sai các dấu ngoặc và một dấu + phải chuyển thành - phải là :

Private Sub CommandButton25_Click()
    Me.TextBox33.Value = Val(Format(Me.TextBox22.Value, "0")) + Val(Format(Me.TextBox23.Value, "0")) + Val(Format(Me.TextBox24.Value, "0")) + Val(Format(Me.TextBox25.Value, "0")) + Val(Format(Me.TextBox26.Value, "0")) - Val(Format(Me.TextBox27.Value, "0")) - Val(Format(Me.TextBox28.Value, "0")) - Val(Format(Me.TextBox29.Value, "0"))
    Me.TextBox33 = Format(Me.TextBox33.Value, "#,##0")
    Me.TextBox30.Value = Me.TextBox33.Value
End Sub