[VB6]: Calcolo errato prelevando valori da TextBox

[marco.santilli]

Ho 6 caselle di testo da sommare:

Text50.Text = Text41.Text+Text42.Text+Text39.Text+Text37.Text+Te xt38.Text+Text40.Text


Se attribuisco a tutte le caselle il numero 2 per esempio invece di darmi

12

mi scrive

222222

Mi unisci i valori

Allora ho detto, trasformo ogni casella in valore

Dim Numero1, Numero2, Numero3, Numero4, Numero5, Numero6, somma As String
Numero1 = Val(Text41.Text)
Numero2 = Val(Text42.Text)
Numero3 = Val(Text39.Text)
Numero4 = Val(Text37.Text)
Numero5 = Val(Text38.Text)
Numero6 = Val(Text40.Text)

Cosi facendo funziona, il problema sta nei decimali....se immetto un numero decomale il "Val" me lo trasforma in intero, come devo fare????

Ciao e grazieeeeeeeee

[kalosjo]

Invece di val utilizza cdbl

[Luciano79]

se il separatore decimale è la virgola allora utilizza CDbl.
se il separatore decimale è il punto allora utilizza Val.
se vuoi utilizzare sempre Val allora sostituisci la virgola col punto

Numero = Val(Replace(Text1.Text,",","."))

[marco.santilli]

Ok grazie funziona!!!!!!!!!!!