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()
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5