[VB6] Calcolo somma e FormatNumber

[maximum]

Questa sintassi non funziona correttamente:

Me.txtTotImponibile.Text = FormatNumber(Val(Me.txtTotImponibile.Text) + _
                                            Val(grdRipartizioni.TextMatrix(riga, colonna)), 2)

Nel senso che se il valore di Me.txtTotImponibile.Text = 3,50 e il valore da sommargli della Flex è 15,00, il totale restituito è 18,00 e non 18,50.

Cosa sbaglio?

Grazie anticipatamente per le risposte.

[icecube_HT]

Originariamente inviato da maximum
Questa sintassi non funziona correttamente:

Me.txtTotImponibile.Text = FormatNumber(Val(Me.txtTotImponibile.Text) + _
                                            Val(grdRipartizioni.TextMatrix(riga, colonna)), 2)

Nel senso che se il valore di Me.txtTotImponibile.Text = 3,50 e il valore da sommargli della Flex è 15,00, il totale restituito è 18,00 e non 18,50.

Cosa sbaglio?

Grazie anticipatamente per le risposte.

Ciao !
Il problema e' che la funzione Val() accetta SOLO il punto decimale come separatore, indipendentemente dalle impostazioni internazionali del computer !
La virgola viene vista come carattere non numerico, e la valutazione si interrompe su quel carattere.
Basta che sostituisci nel testo da valutare la "," con "." !!

Ciao !

[maximum]

Funziona....ma se ho due importi ed uno presenta valori con il punto (es: 14.000,80), si incasina la somma....

Come posso risolvere?
Se uso Cdbl, mi viene restituito "Tipo non corrispondente"....

[icecube_HT]

Originariamente inviato da maximum
Funziona....ma se ho due importi ed uno presenta valori con il punto (es: 14.000,80), si incasina la somma....

Come posso risolvere?
Se uso Cdbl, mi viene restituito "Tipo non corrispondente"....

E... vabbe', allora....

...sostituisci il punto con niente (stringa nulla), POI sostituisci la virgola con il punto et...voila' !

Pero' 'sto cavolo di utente dovra' pure avere un po' di disciplina no ?!

Ora non mi chiederai, spero:
"e se l'utente digita i numeri nella prima textbox con il punto e nella seconda con la virgola ?"

L'alternativa VERA e' usare un controllo diverso dalla textbox, che accetti SOLO numeri......

[maximum]

Ho risolto seguendo un'altra strada.
Ho creato un pulsante e dopo avere finito di compilare il mio modulo, tramite clic, gli faccio eseguire i calcoli.
E' stato di fatto il sistema più veloce...