如何准确地获得一个整数？

function NumbersOnlyNoDecimals(pInString)

lNumbersOnly = ""

for x = 1 to len(pInString)

y = (len(pInString)-x+1)

if isNumeric(mid(pInString, y,1)) then

lNumbersOnly = lNumbersOnly + mid(pInString,y,1)

else

if mid(pInString,y,1) = "." then

lNumbersOnly = ""

end if

end if

next

for x = 1 to len(lNumbersOnly)

y = len(lNumbersOnly) - x + 1

lNumbersOnlyForward = lNumbersOnlyForward + mid(lNumbersOnly,y,1)

next

if lNumbersOnlyForward = "" then lNumbersOnlyForward = "0"

NumbersOnlyNoDecimals = lNumbersOnlyForward

end function