(VB6) Stringa che non somma i decimali

[skipperfun]

Ciao a tutti.

Ho il seguente codice che mi dovrebbe restituire come risultato la differenza tra duecelle di due tabelle diverse.

FormUscita.LabelTOTVALOREMovimento.Caption = "Valore " & Format(Val(FormUscita.DataSpedizioni.Recordset.Fie lds("Valore")) - Val(FormUscita.DataUscite.Recordset.Fields("SOMMAV ALORE")), "CURRENCY")

Solo che mi da sempre un risultato in cui mi arrotonda le cifre decimali a 0

ES
(FormUscita.DataSpedizioni.Recordset.Fields("Valor e")) = 15.58

(FormUscita.DataUscite.Recordset.Fields("SOMMAVALO RE")=5.50

il risultato dovrebbe essere 10.08
invece mi restituisce 10.00

Cosa puo' esserci di sbagliato??

Grazie a tutti

[Grumpy]

E' "colpa" della funzione Val, che tronca il risultato quando incontra un carattere non numerico o diverso dal punto. I valori dei campi numerici sono invece rappresentati con la virgola (o altro carattere definito nelle impostazioni internazionali).
Puoi rimediare usando CSng() o CDbl() in luogo di Val().

[Boolean]

Se i valori in formato stringa hanno la virgola come separatore decimale, ti conviene utilizzare CDbl o CSng al posto di Val

Boolean

Edit: Ops... già risposto Grumpy

[skipperfun]

Grazie 1000 risolto

uno è per la precisione singola e uno doppia giusto?

[Boolean]

Esatto. CSng converte in un Single, l'altro in Double.

Boolean