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

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.