OIC15 - Esempio 1 (pag. 26)

Crediti commerciali con scadenza superiore a 12 mesi valutati secondo il criterio del costo ammortizzato e soggetti ad attualizzazione

Il 1° gennaio 20x0 la società vende una partita di merci all’ingrosso per euro 1.000 + iva 22% euro 220. Condizioni pagamento: dilazionato 24 mesi, 4 rate semestrali da euro 305 cad. (250 + iva 55).

Il credito ammonta a euro 1.220.
Tasso interesse presumibile dal contratto 0.
Tasso di mercato 3% semetrale posticipato.
Costi di transazione 0.

Tasso interesse significatamente inferiore al Tasso di mercato.

Per i calcoli usiamo la libreria FinCal.

In primis andranno importate:

library(FinCal)

library(knitr)
library(xtable)

Si procede con:

1) calcolo del valore attuale dei flussi finanziari al tasso d’interesse del 3% semestrale per 4 semestri (24 mesi / 6 mesi = 4 semestri)

cred <- 1000 * 1.22
r1 <- 0.03
n1 <- 4
pmt1 <- cred / n1
t1 <- 0

#pv1 <- pv.annuity(r = 0.03, n = 4, pmt = -305.00, type = 0)
pv1 <- pv.annuity(r = r1, n = n1, pmt = pmt1, type = t1)
round(pv1, 2)

## [1] -1133,72

Stesso risultato ottenibile con la funzione pv.uneven, con indicazione del flusso dei pagamenti. Utile in caso di importi diversi nei vari pagamenti.

cf1 <- c(-305.00, -305.00, -305.00, -305.00)
#pv1 <- pv.uneven(r = 0.03, cf = c(-305.00, -305.00, -305.00, -305.00))
pv1 <- pv.uneven(r = r1, cf = cf1)
round(pv1, 2)

## [1] 1133,72

Calcolo dei flussi dei valori attuali alle diverse scadenze, più precisamente 4 semestri.

2) aggiungere i costi di transazione

c.trans <- 0
pvtot <- pv1 + c.trans
round(pvtot, 2)

## [1] 1133,72

3) calcolo del tasso di interesse effettivo, per l’utilizzo successivo finalizzato per la valutione del credito al costo ammortizzato.

Nell’esempio, non essendo presenti costi di transazione, il tasso effettivo corrisponde al tasso di mercato utilizzato nell’attualizzazione.

# r.eff <- round(irr(c(1220, -305, -305, -305, -305)), 4)
r.eff <- round(irr(c(pvtot, cf1)), 4)
r.eff

## [1] 0,03

Calcolo valori attuali alle varie scadenze e composizione Data Frame con piano di ammortamento finanziario del credito commeciale

va2 = 0 
for (i in 1:length(cf1)) {
  va2[i] <- pv.annuity(r = r1, n = i, pmt = cf1[i], type = 0)
}

vc <- rev(va2)
tab <- data.frame(ValCont = round(vc, 2))
tab$IntAttImpl <- round(tab$ValCont * r1, 2)
tab$FlussiFinEntr <- round(cf1 * -1, 2)
tab$ValContFineEs <- tab$ValCont + tab$IntAttImpl - tab$FlussiFinEntr

Riepilogo dati

credito = 1220
va.att. = 1133,72
Periodo = 4
r merc. = 0,03
r ef.rend. = 0,03

Piano di ammortamento

kable(tab, format = "pandoc", digits = 2, 
      align = c('r','r','r','r'), 
      format.args = list(big.mark=".", 
      decimal.mark = "," ))

ValCont	IntAttImpl	FlussiFinEntr	ValContFineEs
1.133,72	34,01	305	862,73
862,73	25,88	305	583,61
583,61	17,51	305	296,12
296,12	8,88	305	0,00

OIC15 Crediti (valutazione al costo ammortizzato)

Alessandra Santi