如何准确地获得一个整数？
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 | 
发表于 2006-11-16 00:00:00
