[vb6]Aggiungere automaticaente l'iva

[postmaster1]

Salve ragazzi ho un altro problemuccio ... per voi magari è semplice

Allora ho una text dove inserisco un importo poi lo ritrasporto in una label ma come faccio a fagli aggiungere automaticamente l'iva del 20%?

qualcuno è cosi gentile da darmi una mano?
grazie mille

[optime]

posta ilcodice di ritrasporto textbox --> label

[Fado84]

moltiplichi il valore per 1,2.....

Private Sub Command1_Click()
If IsNumeric(Text1.Text) = True Then
Label1.Caption = (Text1.Text) * 1.2
End If
End Sub

questo se usi un command altrimenti dicci tu..
è meglio se ti dichiari una variabile integer gli metti il valore della textbox..

[LMondi]

Io farei in questo modo, anche per consentire i due decimali Euro.

Private Sub Command1_Click()
Dim dblValIva As Double
dblValIva = Text1.Text

Label1.Caption = Format(dblValIva * 1.2, "#,##0.00")

End Sub

Ciao

[Fado84]

hai ragione... ho detto una stupidata prima... non si può mettere una variabile intera per gestire l'iva...

ciao!

[postmaster1]

Grazie LMondi domani lo provo perche non sono su quel computer e ti faccio sapere

[postmaster1]

grazie LMondi funziona benissimo

pero' se volessi portare anche solo iva in un'altra label?

per esempio se calcolo l'iva di 20 euro come faccio oltre che a mostrare il totale ivato anche solo i 4 euro dell'iva?

grazie ancora, anche se faccio domande per voi semplici

[LMondi]

Ti conviene cambiare il codice, ad esempio così:

Option Explicit
Private Sub Command1_Click()
Dim dblImponib As Double
Dim dblIVAperc As Double
Dim dblImpIva As Double


'Aliquota IVA digitata:
    dblIVAperc = TxtIVA.Text
'Imponibile digitato:
    dblImponib = TxtImp.Text
'Importo IVA:
    dblImpIva = Format(dblImponib * (dblIVAperc / 100), "#,##0.00")
    TxtImpIVA.Text = Format(dblImpIva, "#,##0.00")

'Importo fattura compresa IVA:
    TxtImpIvato.Text = Format((dblImponib + dblImpIva), "#,##0.00")
'Stringa di Notizia:
LblNotizia.Caption = "L'importo della fattura è di  €  " & TxtImpIvato.Text & "  di cui" & "  €  " & TxtImpIVA.Text & "   relativi all' IVA."

End Sub