Modules |
5.9 Euro conversione anche di numeri negativi. |
Carlo Costarella |
Le funzioni proposte accettano un numero in precisione doppia e dopo averlo convertito in Euro, lo arrotondano secondo lo standard europeo. Funziona anche con numeri negativi. Esempio: LireToEuro(Me.TotaleLire) Public Function LireToEuro(denaro As Double) As Double On Error Resume Next Dim Euro Euro = 1936.27 LireToEuro = denaro / Euro LireToEuro = ArrotondaEuro(LireToEuro) End Function Public Function ArrotondaEuro(dblValore) On Error Resume Next If dblValore < 0 Then dblValore = (Mid(dblValore, 2, Len(dblValore)) * 100) + 0.5 If InStr(CStr(dblValore), ",") <> 0 Then dblValore = Int(dblValore) ArrotondaEuro = dblValore / 100 ArrotondaEuro = "-" & ArrotondaEuro Else dblValore = (dblValore * 100) + 0.5 If InStr(CStr(dblValore), ",") <> 0 Then dblValore = Int(dblValore) ArrotondaEuro = dblValore / 100 End If End Function |