Originariamente inviato da Roby_72
1) Togli il Cstr, devi avere un numero...
2) Cosa fa la "estrainumero"??
Roby
questa è la estrainuemro:
codice:
Function EstraiNumero(valoreStringa)
sep = mid(cstr(11/10),2,1)
if sep = "," then
nosep = "."
else
nosep = ","
end if
on error resume next
out = cdbl(replace (valoreStringa, nosep, sep))
if err=0 then
EstraiNumero = out
else
EstraiNumero = 0
end if
on error goto 0
End Function
function raddoppiaapostrofi(p)
out = p
pos = InStr(out, "'")
While pos > 0
out = Mid(out, 1, pos) & "'" & Mid(out, pos + 1)
pos = InStr(pos + 2, out, "'")
Wend
raddoppiaapostrofi = out
end function