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

网络编程 2025/1/9 佚名

3 1 2

快活林资源网 Design By www.csstdc.com

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

for x = 1 to len(lNumbersOnly)

y = len(lNumbersOnly) - x + 1

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

if lNumbersOnlyForward = "" then lNumbersOnlyForward = "0"

NumbersOnlyNoDecimals = lNumbersOnlyForward

end function

快活林资源网 Design By www.csstdc.com

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！

快活林资源网 Design By www.csstdc.com

评论“如何准确地获得一个整数？”

暂无评论...