您现在的位置是：网站首页> 编程资料编程资料
如何准确地获得一个整数？_编程10000问_
2023-05-25
367人已围观
简介 如何准确地获得一个整数？_编程10000问_
如何准确地获得一个整数？
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
