|
Io ho fatto così...
Function convEuro(prezzo)
pr = Int(prezzo/1936.27)
fr = CInt((prezzo/1936.27 - pr)*100)
convEuro=""
if(fr >= 10) Then
convEuro = CStr(pr) & "." & CStr(fr)
else
convEuro = CStr(pr) & ".0" & CStr(fr)
end if
End Function
Così ti viene con solo due cifre decimali...ricordati che però è un testo...quindi se lo vuoi sommare lo devi riconvertire in double...
|