Function getDeci(mynumber)
Dim sign, tmpValue
tmpValue = FormatNumber(15, 2)
tmpValue = cstr(tmpValue)
if inStr(tmpValue, ",") then
sign = ","
else
sign = "."
end if
getDeci = CDbl(Replace(mynumber, ".", sign))
End Function
Känns ju som att det borde gå att lösa på ett smidigare sätt...
Någon?