Torna al Thread
If sanzione.Text = "" And speseadd.Text = "" And rateautorizzate.Text = "" Then
MsgBox("Campi vuoti, impossibile proseguire!", vbInformation)
End If
totaleinteressi.Text = ((Val(sanzione.Text) * Val(interessi.Text).ToString("0.00") / 100) / 12).ToString("0.00") * Val(rateautorizzate.Text).ToString("0.00")
nettomensile.Text = (Convert.ToDouble(sanzione.Text) / Convert.ToDouble(rateautorizzate.Text)).ToString("0.00")
interessemensile.Text = (Convert.ToDouble(totaleinteressi.Text) / Convert.ToDouble(rateautorizzate.Text)).ToString("0.00")
ratamensile.Text = (Convert.ToDouble(nettomensile.Text) + Convert.ToDouble(interessemensile.Text)).ToString("0.00")
Label20.Text = (Convert.ToDouble(ratamensile.Text) * Convert.ToDouble(rateautorizzate.Text)).ToString("0.00")
totaleversare.Text = (Convert.ToDouble(Label20.Text) + Convert.ToDouble(speseadd.Text)).ToString("0.00")
speserata.Text = speseadd.Text
rmensile.Text = (Convert.ToDouble(nettomensile.Text) + Convert.ToDouble(interessemensile.Text)).ToString("0.00") 'calcolo che a volte mi lascia vuoto
rataspese.Text = (Convert.ToDouble(ratamensile.Text) + Convert.ToDouble(speserata.Text)).ToString("0.00") 'calcolo che a volte mi lascia vuoto
sspese.Text = speseadd.Text
If Val(nettomensile.Text) < 105.0 Then
MsgBox("Importo minima rata 105.00€ aumentare numero rate!", vbCritical)
End If
totaleversare.Text = "€" & Format(totaleversare.Text)
nettomensile.Text = "€" & Format(nettomensile.Text)
interessemensile.Text = "€" & Format(interessemensile.Text)
ratamensile.Text = "€" & Format(ratamensile.Text)
Label20.Text = "€" & Format(Label20.Text)
speserata.Text = "€" & Format(speserata.Text)
ListView1.Items.Clear()