Function EURO(Lire As Currency)
Dim EURO1, EURO2 As Currency EURO1 = Lire / 1936.27 EURO2 = Int((EURO1 - Int(EURO1)) * 1000) EURO2 = CLng(EURO2 / 10) If Int(Lire) < 184 Then EURO2 = EURO2 / 10 'Nota questo passo e' dovuto all'arrotondamento 'da effettuarsi secondo circolare ministeriale If Int(Lire) < 184 Then EURO = Int(EURO1) + (EURO2 / 10) Else EURO = Int(EURO1) + (EURO2 / 100) End Function |