Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
IVA - Form1.vb

Form1.vb

Caricato da: Poggi Marco
Scarica il programma completo

  1. Public Class Form1
  2.  
  3.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  4.         Me.Text = "IVA"
  5.         Call Cancella()
  6.     End Sub
  7.  
  8.     Private Sub Cancella()
  9.         TextBoxPercentuale.Text = "22"
  10.         TextBoxTotale.Text = ""
  11.         TextBoxEsente.Text = ""
  12.         LabelRisultato.Text = ""
  13.     End Sub
  14.  
  15.     Private Sub ButtonCalcola_Click(sender As Object, e As EventArgs) Handles ButtonCalcola.Click
  16.         Dim totale As Double, iva As Double, esente As Double
  17.         Dim scorporato As Double, tassa As Double
  18.         If (Double.TryParse(TextBoxPercentuale.Text.Replace(".", ","), iva) And Double.TryParse(TextBoxTotale.Text.Replace(".", ","), totale) And Double.TryParse(TextBoxEsente.Text.Replace(".", ","), esente)) Then
  19.             iva = 1.0 + iva / 100.0
  20.             If (iva < 1.0) Or (iva > 1.5) Then
  21.                 MessageBox.Show("Valore dell' IVA non valodo.")
  22.                 Call Cancella()
  23.             Else
  24.                 scorporato = (totale - esente) / iva
  25.                 tassa = (totale - esente) * (1.0 - (1.0 / iva))
  26.                 LabelRisultato.Text = String.Format("Base imponibile senza iva: {0,0:f2} €{1}Risultante IVA separata: {2,0:f2} €", scorporato, vbCrLf, tassa)
  27.             End If
  28.         Else
  29.             MessageBox.Show("Sono ammessi solo valori numerici.")
  30.             Call Cancella()
  31.         End If
  32.     End Sub
  33. End Class