Formule om kosten te verdelen over jaren

[Jurgen2807]

Hallo,

Ik loop vast in een formule waar datum in gebruikt worden.

Ik heb een begindatum en een einddatum. In die periode worden kosten gemaakt. Ik wil graag dat o.b.v. die datums de kosten per jaar berekend worden o.b.v. een formule. Nu dien ik dat iedere keer handmatig aan te passen.

HELP ajb . Wie kan mij helpen aan de juiste formule? zie bijlage. Op regel 3 heb ik vermeld hoe ik dit handmatig iedere keer moet doen. Graag heb ik een formule.

 

[AHulpje]

Een formule zou wel erg lang en dus onleesbaar worden, daarom met een user defined function opgelost, zie bijlage.

Function KostenPerJaar(startdatum, einddatum, jaar, bedrag) As Single
    Dim beginjaar As Date
    Dim eindjaar As Date
    Dim looptijd As Integer
    Dim schrikkeljaar As Integer
    beginjaar = DateSerial(jaar, 1, 1)
    eindjaar = DateSerial(jaar, 12, 31)
    looptijd = einddatum - startdatum + 1
    If jaar Mod 4 = 0 Then schrikkeljaar = 1
    
    If startdatum < beginjaar Then
        If einddatum < beginjaar Then
            dagen = 0
        ElseIf einddatum < eindjaar Then
            dagen = einddatum - beginjaar + 1
        Else
            dagen = 365 + schrikkeljaar
        End If
    ElseIf startdatum < eindjaar Then
        If einddatum < eindjaar Then
            dagen = einddatum - startdatum + 1
        Else
            dagen = eindjaar - startdatum + 1
        End If
    Else
        dagen = 0
    End If
    KostenPerJaar = dagen / looptijd * bedrag
End Function

Voor je alma mater moet je iets over hebben ;-)

 

[cow18]

op dagbasis, niet op maandbasis met een vrij klassieke, leesbare formule.

 

[AHulpje]

Mooie formule, compacter dan ik dacht dat mogelijk was. En met controle op aanwezigheid van start- en einddatum, de formule zou zelfs nog compacter kunnen als de kolomheaders vervangen zouden worden door alleen jaartallen. Chapeau!
Gelukkig komen onze berekeningen exact overeen.