Specialissimo

           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.

Informativa - Preferiti