PDA

Visualizza la versione completa : [VB] calcoli con decimali


gyonny
23-11-2002, 01:57
ciao ragazzi

ho un piccolo problema di calcoli con decimali.
il codice qui sotto funziona solo fino a 999
dopo mi da 1

esempio:
(800,10 + 80,20 = 880,3)
(1.000,50 + 10,20 = 11,7)

dovè l'errore?

CStr(Val(Text2.Text) + Val(text1.Text))

helo

Gigi84
23-11-2002, 14:43
ma usi il punto come separatore di migliaia??
mi sa che si arrabbia x quello!!

:ciauz: :ciauz:

gyonny
23-11-2002, 22:47
no gigi non uso il punto.
sul post ho usato il punto per far capire meglio il problema.
penso che sia visual a vedere il punto.
mi spiego: in dataformat ho impostato numerico con separatore di migliaia e 2 cifre decimali per text1 e 2.
E penso che visual vede il punto in queste text.
Il fatto è che senza punto e senza le due cifre decimali, è un bel casino capire gli importi in euro.
by
gyonny

chipdb
24-11-2002, 10:48
Potresti fare una funzione che dato il numero in € con il separatore delle migliaia ne ricavi un numero senza separatori fuorché la virgola (che deve essere un punto per VB).
Ciao

gyonny
24-11-2002, 19:04
ragazzi grazie per l'aiuto.
ho risolto in questo modo

Dim im, c2, t2 As Currency
im = importom.Text
c2 = Combo2.Text
t2 = CCur(Text2.Text)

If im = "" Or im = 0 Then
ElseIf c2 = "Dare" Then
Text1.Text = FormatCurrency(t2 - im)
ElseIf c2 = "Avere" Then
Text1.Text = FormatCurrency(t2 + im)
Else
End If

by

ddies
25-11-2002, 12:09
La funzione val() vuole SEMPRE il punto come separatore dei decimali, a prescindere da lingua impostazione ecc.

Loading