VBA'da bir varyantın tam sayı olup olmadığını nasıl belirleyebilirim?

Question

VBA'da bir varyantın tam sayı olup olmadığını belirlemek için zarif bir çözüm arıyorum. Maalesef, eğer varyant bir dizeden oluşturulmuşsa, ben takılıyorum. İşte

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

ben v olması bekleniyor olurdu, ancak Iletikutusu = varyant bir dize oluşturuldu muhtemelen çünkü açılır yuvarlak (v): Burada küçük bir test senaryo. CDbl çift tipi numarasına herhangi bir veri dönüştürme bir fonksiyondur

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

:

Answer 1

Sen gibi bir şey yazmak gerekir. CDbl işlevini çağırmadan önce v'nin isNumeric() işleviyle bir sayıya dönüştürülemeyeceği durumları ele almak zorunda kalabilirsiniz. Hatta karşılaştırmalar için CInt işlevini kullanabilirsiniz: Eğer Val kullanırsanız(), bir dizi dönüştürmek için elinden geleni yapacak

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 

. Eğer yapamazsa, sıfıra dönecek ve Val (v) bu durumda daima Int (Val (v)) olacaktır.