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

网络编程 2024/12/23 佚名

2 0 1

蝙蝠岛资源网 Design By www.hbtsch.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.hbtsch.com

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com

蝙蝠岛资源网 Design By www.hbtsch.com

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

暂无如何准确地获得一个整数？的评论...

www.hbtsch.com 蝙蝠岛资源网

139,976影音资源

144,792福利资源

21,817软件资源

631,128技术资源

2024年12月23日