function f_ToNumber(string) '字符串转数字 if isnumeric(string)=true then f_ToNumber=string else f_ToNumber=0 end if end function