Một chức năng để loại bỏ các vị trí thập phân

Question

Tương đương javaScript Math.Floor() trong VBA là gì ?. chức năng này sẽ loại bỏ tất cả các vị trí thập phân và chỉ trả lại một số nguyên.

Answer 1

Điều tôi nhớ sử dụng hàm Int(). ex int (2,99) = 2; int (2.1) = 2 v.v. google để biết thêm thông tin!

Answer 2

Đó là Round()

Sub Sample() 
    Dim dval As Double 
    dval = 1.12345 

    Debug.Print Round(dval, 0) 
End Sub 

0 trên xác định số thập phân mà bạn muốn.

EDIT:

Albi Patozi là đúng. Số equivalent của Math.Floor() là int(). Tôi đã ấn tượng rằng bạn chỉ muốn trả lại một con số không có số thập phân. Nhưng sau đó tôi nhìn lên http://www.w3schools.com/jsref/jsref_floor.asp

Phương pháp sàn() làm tròn một số xuống số nguyên gần nhất, và trả về kết quả.

'~~> JavaScript floor() Method 
'var a=Math.floor(0.60); ~~> 0 
'var b=Math.floor(0.40); ~~> 0 
'var c=Math.floor(5);  ~~> 5 
'var d=Math.floor(5.1);  ~~> 5 
'var e=Math.floor(-5.1); ~~> -6 
'var f=Math.floor(-5.9); ~~> -6 

Sub Sample() 
    Dim dval(5) As Double, i As Long 

    dval(0) = 0.6: dval(1) = 0.4: dval(2) = 5 
    dval(3) = 5.1: dval(4) = -5.1: dval(5) = -5.9 

    For i = LBound(dval) To UBound(dval) 
     Debug.Print Round(dval(i), 0); " ~~ "; Int(dval(i)) 
    Next 
End Sub 

KẾT QUẢ

ROUND() ~~ INT()

1 ~~ 0

0 ~~ 0

5 ~ ~ 5

5 ~~ 5

-5 ~~ -6

-6 ~~ -6

Answer 3

hãy cẩn thận rằng CInt() thực sự vòng số, nhưng Int() không .

CInt(1.6) ~~ 2 
Int(1.6) ~~ 1