Ho un porblemino a calcolare il 20% di un numero decimale.
Ecco la mia funzione.
- Codice: Seleziona tutto
Public Function Percentuale(ByVal valore As Variant, ByVal perc As Variant) As Variant
MsgBox valore
MsgBox perc
Dim pippo As Double
pippo = (valore * perc) / 100
Percentuale = pippo
End Function
Chiamo questa funzione con
- Codice: Seleziona tutto
percentuale(541.63,20)
Il cui risultato esatto dovrebbe essere 108.326. I msgbox mostrano correttametne i valori passati, ma la funzione mi ritorna un inspiegabile 10832,6
QUalche idea?