Newsgroup: it.comp.appl.access
Titolo: CALCOLO IRPEF 2007

Salve, prima di tutto auguri per il nuovo anno. Poi,
aliquote
fino a 15.000 > 23%
da 15.001 a 28.000 > 27%
da 28.001 a 55.000 > 38%
da 55.001 a 75.000 > 41%
oltre 75.000 > 43%
come posso al variare dell'imponibile (vedi esempio), ottenere il risultato 
tenedo conto delle aliquote sopra menzionate?
esempio di calcolo su reddito di 20.000 euro
es.15.000*0.23+5.000*0.27=3.450+1.350=4.800
grazie
Rino 

 es.15.000*0.23+5.000*0.27=3.450+1.350=4.800
[OT]
Non sapevo che il calcolo dell'aliquota dovesse essere fatto per scaglioni, 
cioé, ad esempio, che si paga il 23 per cento sui primi 15000 euro, indipendentemente 
dall'ammontare totale dell'imponibile. Per riprendere il tuo esempio, credevo 
che, essendo l'imponibile di 20000 euro, si pagasse il 27 per cento su 20000 
euro.
[/OT]
Per fare il calcolo che hai richiesto, ti basta utilizzare poche righe di 
codice. Puoi crearti una funzione alla quale passi l'imponibile e che ti 
ritorna l'IRPEF da pagare.
=============================
Public Function CalcolaIRPEF(Imponibile As Currency) As Currency
    Dim curImponibile As Currency
    Dim curIRPEF As Currency
 
    curImponibile = Imponibile
    curIRPEF = 0
 
    If curImponibile > 75000 Then
        curIRPEF = curIRPEF + ((curImponibile - 75000) * 0.43)
        curImponibile = curImponibile - 75000
    End If
 
    If curImponibile > 55000 Then
        curIRPEF = curIRPEF + ((curImponibile - 55000) * 0.41)
        curImponibile = curImponibile - 55000
    End If
 
    If curImponibile > 28000 Then
        curIRPEF = curIRPEF + ((curImponibile - 28000) * 0.38)
        curImponibile = curImponibile - 28000
    End If
 
    If curImponibile > 15000 Then
        curIRPEF = curIRPEF + ((curImponibile - 15000) * 0.27)
        curImponibile = curImponibile - 15000
    End If
 
    If curImponibile > 0 Then
        curIRPEF = curIRPEF + (curImponibile * 0.23)
        curImponibile = 0
    End If
 
    CalcolaIRPEF = curIRPEF
End Function
=============================
--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype:pbsoftsolution

 euro.
Sarà per questo che gli italiani pensano  di pagare troppe tasse...?

Mi pare  che questa funzione non sia corretta  nella parte in cui calcoli il
residuo imponibile, il calcolo giusto dovrebbe essere:
Public Function CalcolaIRPEF(Imponibile As Currency) As Currency
    Dim curImponibile As Currency
    Dim curIRPEF As Currency
    curImponibile = Imponibile
    curIRPEF = 0
    If curImponibile > 75000 Then
        curIRPEF = curIRPEF + ((curImponibile - 75000) * 0.43)
        curImponibile = 75000
    End If
    If curImponibile > 55000 Then
        curIRPEF = curIRPEF + ((curImponibile - 55000) * 0.41)
        curImponibile = 55000
    End If
    If curImponibile > 28000 Then
        curIRPEF = curIRPEF + ((curImponibile - 28000) * 0.38)
        curImponibile = 28000
    End If
    If curImponibile > 15000 Then
        curIRPEF = curIRPEF + ((curImponibile - 15000) * 0.27)
        curImponibile = 15000
    End If
    If curImponibile > 0 Then
        curIRPEF = curIRPEF + (curImponibile * 0.23)
        curImponibile = 0
    End If
    CalcolaIRPEF = curIRPEF
End Function
Ciao
-- 
Cinzia
---------------------------------------
|  
http://www.riolab.org
  |
---------------------------------------

 calcoli il residuo imponibile, il calcolo giusto dovrebbe essere:
Non a caso ti hanno dato il riconoscimento di MVP :-)
p.s.: complimenti anche da parte mia.



Fino alla precedente finanziaria L'IRPEF si calcolava a scaglioni,
applicando l'aliquota sull'eccedente dello scaglione precedente, come hai
fatto tu, ma tenendo conto della NTA e della NTFA. Credo che le cose non
siano cambiate.
La NTA o No Tax Area, è una soglia variabile col reddito al di sotto della
quale non si calcola l'IRPEF;
La NTFA o No Tax Family Area, è una soglia variabile col reddito e col
numero dei familiari a carico che, insieme alla NTA, costituisce il limite
al di sotto del quale non di deve calcolare l'IRPEF.
Ti allego il link (
http://web.tiscali.it/simplex2/MascheraMandati_Pubblica.zip
 ) ad una
maschera estratta da un applicativo che, in parte, ho scritto.
Inserisci l'importo lordo nella casella di testo in alto a destra e
seleziona la sezione
"Esperto non iscritto ad alcun fondo di previdenza obbligatoria". Seleziona,
quindi, il tab IRPEF e vedrai i calcoli già fatti.
Se hai problemi, contatta.
Ciao.
Simplex2
www.mdenittis.it

ATTENZIONE - DISCLAIMER:
Non si devono considerare validi i risultati dei calcoli della maschera
indicata perchè la NTA e la NTFA si riferiscono alla finanziaria 2006!!!!
I valori per il2007 possono, quindi, essere diversi in ragione di nuovi
parameteri di calcolo che sarà possibile reperire dalle circolari del
M.E.F.!
QUINDI
Considera la maschera a puro titolo di esempio, altrimenti potrebbero
insorgere problemi (tuoi).
Ciao.

 ha scritto nel messaggio 
news:enimsf$4ph$1...@aioe.org...



Ciao Rino,
la funzione di PBSoft, corretta da me non va bene? Con quella calcoli
l'imposta lorda per la detrazione puoi usare qualcosa del tipo
Function Detrazione (Imponibile as Currency) as Currency
    if imponibile > 55000 then
        Detrazione = 0
   else
        Detrazione =  (55000-Imponibile)/40000*1338
   end if
end Function


 ha scritto nel messaggio 
news:459d0dec$0$20808$5fc...@news.tiscali.it...


 ha scritto nel messaggio 
news:875ea35598028...@news.tin.it...


 oltre 75.000 > 43%
Ma su un reddito di 15.000,85 gli 85 cents come verranno tassati? 23 o 27?
Si vede che chi fa le leggi non ha mai provato ad applicarle,scontrandosi
con i relativi problemi.
Ciao.
-Marco-
-- 
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 verranno tassati? 23 o 27?
Domanda non banale.
Leggendo la finanziaria (Art.1, comma 6, Lett.b) si legge "oltre 15.000 euro
e fino a 28.000 euro, 27 per cento", quindi personalmente ritengo che gli 85
cents vadano tassati al 27%, a meno di qualche altra precisazione persa nei
meandri del TUIR.
Comunque, sto facendo un'analisi del testo legislativo (non mi fido delle
tabelline che si reperiscono qua e la in Internet) prima di modificare la
maschera dei mandati di pagamento degli stipendi. Se qualcuno è intressato
ad un confronto, quando finisco posso renderla disponibile per commenti (una
RFC finanziaria 2007 :-D ).
Saluti
Simplex2
www.mdenittis.it

 ha scritto nel messaggio 
news:459d0dec$0$20808$5fc...@news.tiscali.it...


 CalcolaIRPEF? è possibile con l'evento clik avere il risultato?
Ciao Rino,
copi le due funzioni nel codice della maschera dove le devi usare oppure se
ti servono da più parti le metti in un modulo.
Nella maschera metti una textBox in cui l'utente scrive l'imponibile e una
seconda textBox che come origine dati avrà:
=CalcolaIrpef(Imponibile) -Detrazione([Imponibile])
PS. Per vavore fai attenzione al "quoting"  rispondi cioè dopo la risposta
di chi ti ha risposto, rimuovendo le parti non necessarie alla comprensione
del problema


Sto affrontando lo stesso problema di Rino, modificando  una maschera per il
calcolo dell'IRPEF sviluppata per la finanziaria 2006.
Finora ho analizzato il testo normativo (ho redatto anche un documento) e
sto apportando le necessarie modifiche.
Qualcuno è interessato all'argomento?
Se si, potrei rendere pubblica la maschera o condividere documentazione ed
esperienze (casi particolari, dubbi, perplessità etc.).
Fatemi sapere.
Ciao.
-- 
Simplex2
www.mdenittis.it
_______________

 ha scritto nel messaggio 
news:enl074$d8c$1...@news.newsland.it...

ciao marco leggi le circolari vengono da sempre effettuate gli 
arrotondamenti x >< 

 arrotondamenti x ><
Cortesemente,
potresti essere piů preciso?
Su diversi siti ho trovato addirittura arrotondamenti all'euro!
Vorrei capire se questa approssimazione č normativamente supportata e dove.
Grazie.
-- 
Simplex2
www.mdenittis.it
_______________

 > per effetto dell'arrotondamento in questo caso in eccesso viene tassata 1
 > euro al 27% - istruzioni per la compilazione dei redditi Min entrate.
Grazie 1000.
P.S.
Fai un miglior uso del quoting altrimenti diventa faticoso leggere i post.


tanto bravo)
grazie
Rino