Rem converte strings para moldar dados
functionTointEger (str, num)
STR = TRIM (STR)
ifstr = "" ornotisnumeric (str) então
ToInteger = num
outro
ToInteger = clng (str)
endif
Função final
Rem converte strings em dados de precisão dupla
FunctionTodouble (STR)
STR = TRIM (STR)
ifstr = "" ornotisnumeric (str) então
Todouble = 0,0
outro
Todouble = CDBL (STR)
endif
Função final
Rem converte strings em dados booleanos
função toboolean (str)
str = lcase (acabamento (str))
ifstr = "true" oustr = "t" então
Toboolean = Verdadeiro
Elseifisnumeric (str) então
ifclng (str) <> 0hEntoBoolean = true
outro
Toboolean = Falso
endif
Função final