excel risultati curiosi con decimali

[wallace&gromit]

Ciao, vi sottopongo uno strano caso:
volevo scrivere una funzione che deve estrarre i decimali da un numero e moltiplicarli per 100.
Mi sembrava una cosa abbastanza banale e ho scritto questo:

Codice: Seleziona tutto

Function Decimali(num)
num2 = Int((num - Int(num)) * 100)
Decimali = num2
End Function

i risultati sono alquanto sorprendenti.
Per alcuni valori (con una logica che non capisco) ottengo il valore atteso -1.
Per esempio 3.8 mi restituisce 79, ma 0.8 restituisce 80 (corretto). Chi sa svelare il mistero?

[Flash30005]

Cambia Nome alla funzione es.:

Codice: Seleziona tutto

Function TrovaD(numT)
NumD = (numT - Int(numT)) * 100
TrovaD = NumD
End Function

Ciao

[wallace&gromit]

per un attimo mi sono illuso... ma non è così semplice.
Nella tua funzione manca l'arrotondamento finale: a me serve un numero intero. È proprio in quel passaggio che salta qualcosa, anche modificando la tua.

[scossa]

Ciao, vi sottopongo uno strano caso:
volevo scrivere una funzione che deve estrarre i decimali da un numero e moltiplicarli per 100.
Mi sembrava una cosa abbastanza banale e ho scritto questo:

Codice: Seleziona tutto

Function Decimali(num)
num2 = Int((num - Int(num)) * 100)
Decimali = num2
End Function

i risultati sono alquanto sorprendenti.
Per alcuni valori (con una logica che non capisco) ottengo il valore atteso -1.
Per esempio 3.8 mi restituisce 79, ma 0.8 restituisce 80 (corretto). Chi sa svelare il mistero?

E' un problema di "precisione", dichiara la variabile come Currency e risolvi:

Codice: Seleziona tutto

Function Decimali(num As Currency) As Integer
  Decimali = Int((num - Int(num)) * 100)
End Function

[Flash30005]

...
Nella tua funzione manca l'arrotondamento finale: a me serve un numero intero.

Ha ragione Scossa ma per l'arrotondamento devi considerare che si arrotonda in eccesso se supera lo 0,5 altrimenti l'arrotondamento è in difetto
quindi utilizzando la funzione di Scossa puoi fare così:

Codice: Seleziona tutto

Function Decimali(num As Currency) As Integer
Decimali = (num - Int(num)) * 100
End Function

ciao

[Anthony47]

Vedi i messaggi di scossa e Flash, sopra.
Se poi coi negativi viene fuori nuovamente qualcosa di strano allora prova Fix invece di Int.

E farlo invece con formula?

Codice: Seleziona tutto

=INT(RESTO(ASS(C9);1)*100)

Ciao

[wallace&gromit]

grazie mille a tutti, funziona la soluzione di scossa.
Poi una volta ci sediamo un attimo e cerchiamo di capire come cavolo fa excel a sbagliare l'approssimazione su 1.9 (non gli chiedevo mica P greco!)

[wallace&gromit]

non avevo tenuto in debita considerazione le considerazioni di flash (forse perchè non hai inserito il codice più aggiornato), comunque la mia versione definitiva e funzionante è questa

Codice: Seleziona tutto

Function Decimali(num As Currency)
num2 = (num - Int(num)) * 100
Decimali = Int(num2 + 0.5)
End Function

grazie ancora a tutti. Per Anthony: è solo il primo passo di una macro più complessa, quindi mi serviva il VBA.

[Flash30005]

comunque la mia versione definitiva e funzionante è questa

Quale differenza hai tra questi due codici?

Codice: Seleziona tutto

Function Decimali(num As Currency)
num2 = (num - Int(num)) * 100
Decimali = Int(num2 + 0.5)
End Function

Codice: Seleziona tutto

Function Decimali(num As Currency) As Integer
Decimali = (num - Int(num)) * 100
End Function

Ciao

[wallace&gromit]

effettivamente il risultato è uguale, scusa Flash, non avevo aggiornato la tua macro nel mio file.