Làm cách nào để xác định xem một biến thể có phải là một số nguyên trong VBA không?

Question

Tôi đang tìm một giải pháp thanh lịch để xác định xem một biến thể có phải là một số nguyên trong VBA hay không. Thật không may, nếu biến thể được tạo ra từ một chuỗi, tôi bị mắc kẹt. Dưới đây là một kịch bản thử nghiệm nhỏ:

dim v as variant 
v = "42" 
if v <> round(v) then 
    msgBox("<>") 
end if 

Ở đây, MsgBox bật lên, có lẽ vì các biến thể được tạo ra từ một chuỗi, mặc dù tôi dự kiến ​​sẽ có v là = round (v).

Answer 1

Bạn nên viết một cái gì đó như:

if cDbl(v) <> round(cDbl(v)) Then 

đâu CDbl là một chức năng chuyển đổi bất kỳ dữ liệu đến một số double-type. Bạn có thể phải xử lý các trường hợp trong đó v không thể được chuyển đổi thành một số với hàm isNumeric() trước khi gọi hàm cDbl. Bạn thậm chí có thể sử dụng chức năng CInt để so sánh của bạn:

if isnumeric(v) then 
    if cDbl(v) - cInt(v) <> 0 Then 
    .... 
    endif 
else 
    debug.print "data cannot be converted to a number" 
endif 

Answer 2

Sub test() 

    Dim v As Variant 
    v = "42" 
    If Val(v) <> Int(Val(v)) Then 
     MsgBox ("<>") 
    End If 

End Sub 

Nếu bạn sử dụng Val(), nó sẽ cố gắng hết sức mình để chuyển đổi thành một số. Nếu nó không thể, nó sẽ trả về 0 và Val (v) sẽ luôn bằng Int (Val (v)) trong trường hợp đó.