[VB6] Sottrazione di valori in virgola mobile

[donini]

ciao mi succede una cosa un po strana se io faccio una sottazione in visual basic
es 201,3 - 198 mi da risultato 3,300000000001
codice in

Private Sub IMPORTO_PAGATO_Change()
RESIDUO_MESE_SUCCES = (CDbl(SALDO.Text)) - (CDbl(IMPORTO_PAGATO.Text))
End Sub

[oregon]

Non e' strano ... sono i normali problemi di imprecisione del calcolo binario in virgola mobile ...

Per visualizzare il risultato utilizza la Format e limita il numero di decimali visualizzati ...

[donini]

ho provato cosi ma il risultato non cambia

Private Sub IMPORTO_PAGATO_Change()
RESIDUO_MESE_SUCCES = Format("0.00") & (CDbl(SALDO.Text)) - (CDbl(IMPORTO_PAGATO.Text))

IMPORTO_TOTALE = (CDbl(IMPORTO_ASSEG.Text)) + (CDbl(IMPORTO_PAGATO.Text))

End Sub

[donini]

ho risolto cosi

Private Sub IMPORTO_PAGATO_Change()
RESIDUO_MESE_SUCCES = Format((CDbl(SALDO.Text)) - (CDbl(IMPORTO_PAGATO.Text)), "0.00")



End Sub

[oregon]

Sì ... quello che ti suggerivo era di utilizzare la Format *dopo* aver fatto il calcolo ... solo per visualizzare ...

Del resto questa linea

RESIDUO_MESE_SUCCES = Format("0.00") & (CDbl(SALDO.Text)) - (CDbl(IMPORTO_PAGATO.Text))

non ha senso ...