L'Informatica Piemunteisa - home page L'Informatica Piemunteisa



Trucchi

titolo: Access - Arrotonda Euro

data: 13/07/2014

           Se avete dei problemi in Access per gestire l'arrotondamento a due cifre decimali previsto per l'Euro, potete usare la seguente comoda funzione (da registrare nei moduli):


Public Function ArrEuro(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)
ArrEuro = dblValore / 100
ArrEuro = "-" & ArrEuro
Else
dblValore = (dblValore * 100) + 0.5
If InStr(CStr(dblValore), ",") <> 0 Then dblValore = Int(dblValore)
ArrEuro = dblValore / 100
End If
End Function



In questo modo richiamando, ad esempio:
risultato = ArrEuro(300/7)
la variabile risultato varrà 42,86.

Indietro


Informativa - Contatti - Favoriti

L'Informatica Piemunteisa © 2002-2018 by Franco C.