Discussione: [VB6] Calcolo errato
View Single Post
Old 25-08-2006, 09:04   #1
OrcaAssassina
Senior Member
 
Iscritto dal: Feb 2003
Messaggi: 2818
[VB6] Calcolo errato

Ho 6 caselle di testo da sommare:

Text50.Text = Text41.Text+Text42.Text+Text39.Text+Text37.Text+Text38.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
__________________
AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER
OrcaAssassina è offline   Rispondi citando il messaggio o parte di esso