Rem將字符串轉換為整形數據
functiontoInteger(str,num)
str=trim(str)
ifstr=""ornotisnumeric(str)then
toInteger=num
else
toInteger=clng(str)
endif
endfunction
Rem將字符串轉換為雙精度型數據
functiontoDouble(str)
str=trim(str)
ifstr=""ornotisnumeric(str)then
toDouble=0.0
else
toDouble=cdbl(str)
endif
endfunction
Rem將字符串轉換為布爾數據
functiontoBoolean(str)
str=lcase(trim(str))
ifstr="true"orstr="t"then
toBoolean=true
elseifisnumeric(str)then
ifclng(str)<>0thentoBoolean=true
else
toBoolean=false
endif
endfunction