[VB6]Sommare valori valuta

[Edipo]

Ciao.
Mi sapreste dire come faccio a sommare due importi in euro tenendo presente la precisione?

[giano118]

Private Sub Command1_Click()
Dim x As Double
Dim y As Double
var1 = Format(Text1.Text, "###0.00")
var2 = Format(Text2.Text, "###0.00")
x = var1
y = var2
somma = x + y
sommatot = Format(somma, "###0.00 €")
Label1.Caption = sommatot
End Sub

potresti saltare qualche associazione, sicuramente ma così vedi i passaggi come sono...
spero di esserti stato utile

ciao
Giano

Originariamente inviato da Edipo
Ciao.
Mi sapreste dire come faccio a sommare due importi in euro tenendo presente la precisione?

[ciro78]

basterebbe definirli come currency a mio avviso
se esite il formato valuta il motivo ci deve essere

[xegallo]

Originariamente inviato da ciro78
basterebbe definirli come currency a mio avviso
se esite il formato valuta il motivo ci deve essere

il tipo double e il tipo currency pesano entrambi 64bit ma vengono rappresentati diversamente il primo infatti usa la notazione scentifica l'altro no

[ciro78]

beh penso che per le valute al notazione scentifica abbia poco senso

[hunt]

io utilizzo i currency e mi trovo benissimo!

[Edipo]

Originariamente inviato da giano118

Private Sub Command1_Click()
Dim x As Double
Dim y As Double
var1 = Format(Text1.Text, "###0.00")
var2 = Format(Text2.Text, "###0.00")
x = var1
y = var2
somma = x + y
sommatot = Format(somma, "###0.00 €")
Label1.Caption = sommatot
End Sub

potresti saltare qualche associazione, sicuramente ma così vedi i passaggi come sono...
spero di esserti stato utile

ciao
Giano

Grazie per il tuo aiuto Giano.
Ma con la Format() non riesco a formattare il valore 340000:
mi restituisce 3400,00 anzichè 3.400,00

Come posso fare?Devo passare parametri in più alla format?
grazie

[LMondi]

Ciao Edipo!
Per ottenere il formato con punto delle migliaia e due decimali devi fare così:

Private Sub Command1_Click()
    Dim x As Double
    Dim y As Double
        var1 = (Text1.Text)
        var2 = (Text2.Text)
        x = var1
        y = var2
        somma = x + y
        sommatot = Format(somma, "#,##0.00 €")
        Label1.Caption = sommatot
End Sub

[Edipo]

Grazie LMondi!!!

[tas]

In VB6 Currency è il tipo più adatto per il trattamento delle valute. Provate questa semplice operazione: 1 / 10 - 0.1
Il risultato dovrebbe essere 0 (infatti 0.1 - 0.1 = 0) e invece...

    'double
    Dim d1 As Double
    Dim d2 As Double
    
    d1 = 10
    d2 = 0.1
    Debug.Print "Double:", (1 / d1 - d2)
    
    'single
    Dim s1 As Single
    Dim s2 As Single
    
    s1 = 10
    s2 = 0.1
    Debug.Print "Single:", (1 / s1 - s2)
    
    'currency
    Dim c1 As Currency
    Dim c2 As Currency
    
    c1 = 10
    c2 = 0.1
    Debug.Print "Currency:", (1 / c1 - c2)