Moltiplicazione con decimali VB

[sara81it]

Ciao a tutti,
ho un piccolo problema di decimali.

devo moltiplicare una quantità per un prezzo (es. 1 x 126,12)

quando il programmaesegue il cslcolo mi taglia i decimali. Come mai?

Come potrei risolvere il problema?

Grazie 1000
Sara

[gaullo]

che tipo di variabili utilizzi?

[sara81it]

Non utilizzo alcuna variabile. i valori sono all'interno di textbox..

sono tante e non posso mettere variabili a tutte...

qualche soluzione??

grazie mille

Sara

[xegallo]

prova con
prodotto = val(text1)* val(text2)

[gaullo]

per fare moltiplicazioni tra contenuto di textcox immagino che tu converta la stringa in un numero, ma se fai cint te li trasforma in interi . devi convertirla in double , cdbl(text.text).
prova così

[sara81it]

Ho provato. il codice che ho inserito è:

Dim asso as String
asso=Val(txtqta.text)*Val(txtpz.text)
t.text=Val(asso)

durante il debug i valori sono corretti. solo che il valore asso anzichè valere 126,12 vale poi 126 nonostante tztpz sia letto<come 126,12.

Come mai??

Grazie

Sara

[xegallo]

Originariamente inviato da sara81it
Ho provato. il codice che ho inserito è:

Dim asso as String
asso=Val(txtqta.text)*Val(txtpz.text)
t.text=Val(asso)

durante il debug i valori sono corretti. solo che il valore asso anzichè valere 126,12 vale poi 126 nonostante tztpz sia letto<come 126,12.

Come mai??

Grazie

Sara

perche 126,12 per vb non è un numero 126.12 è un numero

dim Fatt1 as double
dim Fatt2 as double
Dim asso as String
fatt1 = val(replace(txtqta.text,",",".")
fatt2 = val(replace(txtpz.text,",",".")
asso=fatt1 * fatt2
t.text= replace(asso,".",",")

[sara81it]

dim Fatt1 as double
dim Fatt2 as double
Dim asso as String
fatt1 = val(replace(txtqta.text,",","."))
fatt2 = val(replace(txtpz.text,",","."))
asso=fatt1 * fatt2
t.text= replace(asso,".",",")

Fatt2 Vale ancora 126,12

non funziona!

[xegallo]

mah sarà che hai una versione strana di vb sul mio funziona

[sara81it]

ho parzialmente risolto il problema così:

Dim asso as double
Dim t as double

asso= txtqta.text * txtpz.text
t = Val(asso)+ Val(t)

ora perchè in t non mi mantiene il valore 126,12? eppure è un double!


e poi è possibile fare in modo che ci siano al massimo 2 decimali?

Grazie

Sara