Converting to Money

[mdr227]

On a data entry form I am asking users to enter a dollar amount. How can I convert the value they enter if it includes commas to a money or numeric format?

 

[link9]

dim moneyVar
moneyVar = request.form("theTextField&quot
moneyVar = replace(moneyVar, "$", "&quot
moneyVar = replace(moneyVar, ",", "&quot
on error resume next
moneyVar = cdbl(moneyVar)
if err.number <> 0 then
'your entry was not numeric, so do something
end if
err.clear
on error goto 0

Gives you a nice variable of subtype, double, that should be suited for entry into a database field -- and if the entry was not numeric, you've handled that, as well.


Paul Prewett