Media del fatturato mensile

Questo script calcola la media di fatturato mensile per l'anno in corso (vengono considerate le fatture accompagnatore e le fatture differite con causale VENDITA).

La media viene calcolata solo per i mesi passati e non considerando quello in corso: ad esempio a Novembre la media viene calcolata sommando il fatturato dal 01/01 al 31/10, dividendo il risultato per 10 (10 mesi)

Option Explicit
 
Dim Documento
Dim DataInizio
Dim DataFine
Dim Anno
Dim Mese
Dim TotaleFatturato
Dim MediaMensile
Anno = year(Now())
Mese = month(now())
 
If Mese>1 Then ' Calcola la media solo a partire dal mese di Febbraio
 DataInizio = DateSerial(anno,1,1)
 DataFine = DateAdd("d",-1,DateSerial(anno,mese,1))
 TotaleFatturato = 0
 For Each Documento In Anag.Docs(DataInizio,DataFine)
 
   ' Considera solo fatture accompagnatorie (2) e fatture differite (8)
   If (Documento.DocType=2)Or(Documento.DocType=8) Then
     ' Considera solo documenti con causale 'VENDITA'
     If Trim(Ucase(Documento.DocCause.Name))="VENDITA" Then
       ' Somma l'importo totale del documento (IVA compresa)
       TotaleFatturato = TotaleFatturato + Documento.TotalAmount
     End If
   End If
 Next
 
 ' Calcola la media mensile
 MediaMensile = TotaleFatturato / (mese-1)
 
' Visualizza il risultato
 Response.Write(Rdy.FormatCurrency(MediaMensile))
End If