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
如对本文有疑问, 点击进行留言回复!!
网友评论