Salve,
in STRUMENTI DATABASE/VISUAL BASIC ho creato nuovo MODULO per definire la seguente funzione:
ma quando la richiamo in una query Access mi segnala in pop up: Funzione 'arrotonda' non definita nell'espressione.
Come posso risolvere?
P.S.: non consigliatemi di utilizzare la funzione ROUND in quanto sbaglia gli arrotondamenti sull'euro.
in STRUMENTI DATABASE/VISUAL BASIC ho creato nuovo MODULO per definire la seguente funzione:
Codice:
Function Arrotonda(numero As Variant) As Variant
If numero = "" Then
Exit Function
End If
Dim valore As Currency
valore = Fix(numero * 1000)
If Right$(valore, 1) >= 5 Then
valore = valore + 10
End If
valore = Fix(valore / 10) / 100
Arrotonda = valore
End Function
Come posso risolvere?
P.S.: non consigliatemi di utilizzare la funzione ROUND in quanto sbaglia gli arrotondamenti sull'euro.
Ultima modifica di un moderatore: