Xin giúp đỡ viết hàm làm tròn số trong Form

[phamxuyenp171]

Tôi có 3 Label và một "Command Button1" trong một Form: Label1; Label2; Label3.
Trong đó: Khi Click vào "Command Button1" thì:
- Label1 = Label2/Label3
- Kết quả ở Label1 được làm tròn đến chữ số thập phân thứ hai
(VD: 6.235=> 6.24)
Xin được mọi người giúp đỡ viết code cho trường hợp này. Xin cảm ơn!

 

[phamxuyenp171]

Sao không có ai giúp mình thế nhỉ?

 

[Ếch Xanh]

Tôi có 3 Label và một "Command Button1" trong một Form: Label1; Label2; Label3.
Trong đó: Khi Click vào "Command Button1" thì:
- Label1 = Label2/Label3
- Kết quả ở Label1 được làm tròn đến chữ số thập phân thứ hai
(VD: 6.235=> 6.24)
Xin được mọi người giúp đỡ viết code cho trường hợp này. Xin cảm ơn!

Bạn tính trên Label à? thế nhập số vào nhập làm sao hả bạn?

Đây là công thức tính, đơn giản thôi:

Private Sub CommandButton1_Click()
  Dim a As Double
  If Val(Label3.Caption) = 0 Then Exit Sub
  a = Val(Label2.Caption) / Val(Label3.Caption)
  Label1.Caption = Round(a, 2)
End Sub

 

[phamxuyenp171]

- Label2 và Label3 nhận giá trị từ hai textbox tương ứng. Tôi sẽ thử công thức của Bác. Xin cảm ơn!
- Tôi đã viêt:
......
Label1.Caption = Round(Val(Label2.Caption)/Val(Label3.Caption)),2)
.....
Nhưng không hiểu sao nó lại không chạy được, Bác có thể nói cho tôi hiểu tại sao được không?