MacroFacili: Giorni credito countback

La funzione di questo esempio mostra come sia possibile passare come parametro ad una funzione non solo singoli valori ma anche un range di celle.

La funzione calcola i giorni credito con il metodo del "gambero" (countback) tenendo conto dell'effettivo fatturato (deve essere comprensivo di IVA come l'esposizione) nei singoli mesi e per ogni mese completo considera 30 giorni.

Il calcolo fatto in questo modo ha il grande vantaggio di essere indipendente dalle fluttuazioni stagionali del fatturato.

L'esempio a lato mostra la differenza fra i due calcoli:

quello classico che tiene conto dell'addebitato medio di un periodo
lo stesso calcolo con il metodo del gambero

I risultati sono molto diversi, specie in un caso come questo in cui c'è una forte stagionalità.

La funzione

Function Mf_Giorni_Credito_Countback(Esposizione As Double, AddebitatoMesi As Range) As Double
  G = 0
  If (Esposizione > 0) Then
    E = Esposizione

    C = 1
    While (C <= AddebitatoMesi.Columns.Count) And (E > 0.0001)
      If (E >= AddebitatoMesi.Cells(1, C).Value) Then
        G = G + 30
        E = E - AddebitatoMesi.Cells(1, C).Value
      Else
        G = G + E / AddebitatoMesi.Cells(1, C).Value * 30
        E = 0
      End If
      C = C + 1
    Wend
  End If

  Mf_Giorni_Credito_Countback = G
End Function

L'esempio completo é scaricabile da questo link: Es119.xlsm (a questo link le info per attivare le macro se risultano bloccate)

Gli esempi contenuti nel sito sono per uso personale, non é consentito l'uso professionale, commerciale o la riproduzione senza autorizzazione.

Per dubbi o domande potete scriverci a domande@macrofacili.it, sulla nostra pagina FB MacroFacili.it o sul gruppo FB Excel, macro e formule.