Che variabili usare nei calcoli?????

[elfocaotico]

Ma non riesco a risolvere il problema dello zero finale

[optime]

a me non lo toglie. per caso il campo text1 ha una sua formattazione?

[elfocaotico]

E' solo allineato a destra.

Non sarà mica questo????

[optime]

farei la prova del budino... togli e controlla

[elfocaotico]

La prova del budiiiiinooooooo :quote: :quote: :quote:

Niente.
POsto un esempio.
Ho impostato che i campi hanno valore fisso "1" per il text quantità (text1(0)) e 0,58 per il prezzo (text1(1)) perchè così l'iva viene con lo 0 finale.
Vedrete che non ce lo mette lo 0 finale.


Esempio:
text1(0) è il campo quantità
text1(1) è il campo del prezzo lordo (dopo viene valorizzato con il prezzo scorporato)
text2 è il campo dell'imponibile totale (qx x prezzo)
text3 è il campo dell'iva totale
text4 è il campo del totale da pagare

Private Sub Command1_Click()
Dim quantità_video As Double
Dim prezzo_video As Double
Dim imponibile As Double
Dim imponibile_singolo As Double
Dim iva As Double

quantità_video = Text1(0)
prezzo_video = Text1(1)

imponibile_singolo = prezzo_video / 1.2
imponibile_singolo = Format(imponibile_singolo, "###0.00")

imponibile = (quantità_video * imponibile_singolo)
imponibile = Format(imponibile, "###0.00")

iva = imponibile / 100 * 20
iva = Format(iva, "###0.00")


Text1(1) = imponibile_singolo
Text2 = imponibile
Text3 = iva
Text4 = imponibile + iva
End Sub


Grazie ancora.

P.S.: Anche se allineo a sinistra lo zero me lo toglie lo stesso, è proprio in Format che non mi restituisce lo zero finale.

[Laufer]

Prova a mettere l'iva anziche' in double in stringa



Laufer

[elfocaotico]

Originariamente inviato da Laufer
Prova a mettere l'iva anziche' in double in stringa



Laufer

Tradotto?