Vb.net 判断数值是否有小数

前言：因为上网查询都不太靠谱（或者查询的字眼不准确），自己通过CDbl 和 Truncate写了个判断是否有小数的Vb.net,高手如果要喷前请写更好解决方案，感谢

dim sNum = "1.00" '这边可以写1.01, 4这样的数字试试
if CDbl(sNum) - Math.Truncate(CDbl(sNum)) < 0.0000000000000000000001 then
    console.writeline("是小数")
else
    console.writeline("不是小数")
end if

0.0000000000000000000001可以自己加0，double类型的最大限度可以自己查一下,这个cdbl(sNum)返回的是一个强转类型的double类型，即有小数位的还是返回小数位(上面的1.00返回1)，而Trucate是返回这个数的整数位，即1.43返回1,如果小于足够大的0.000000000000001，那么这个数必然有小数了。