|
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = "IVA"
Call Cancella()
End Sub
Private Sub Cancella()
TextBoxPercentuale.Text = "22"
TextBoxTotale.Text = ""
TextBoxEsente.Text = ""
LabelRisultato.Text = ""
End Sub
Private Sub ButtonCalcola_Click(sender As Object, e As EventArgs) Handles ButtonCalcola.Click
Dim totale As Double, iva As Double, esente As Double
Dim scorporato As Double, tassa As Double
If (Double.TryParse(TextBoxPercentuale.Text.Replace(".", ","), iva) And Double.TryParse(TextBoxTotale.Text.Replace(".", ","), totale) And Double.TryParse(TextBoxEsente.Text.Replace(".", ","), esente)) Then
iva = 1.0 + iva / 100.0
If (iva < 1.0) Or (iva > 1.5) Then
MessageBox.Show("Valore dell' IVA non valodo.")
Call Cancella()
Else
scorporato = (totale - esente) / iva
tassa = (totale - esente) * (1.0 - (1.0 / iva))
LabelRisultato.Text = String.Format("Base imponibile senza iva: {0,0:f2} €{1}Risultante IVA separata: {2,0:f2} €", scorporato, vbCrLf, tassa)
End If
Else
MessageBox.Show("Sono ammessi solo valori numerici.")
Call Cancella()
End If
End Sub
End Class
|
|