Accumulate quarters

[Bokazoit]

This meaure works well for month but as soon as I drill to quarter it gives me accumulated up till last quarter i.e. Q1. I need it to show for Q2 also even though it is not finished yet:

acc =

VAR __MaxYT = MAX(DimDato[År])

var __MaxDT = max(DimDato[Dato])

var __TD = TODAY()

var __Rtotal =

CALCULATE(sum(FactFinans[#Bogførtbeløb]),

Filter(

All(DimDato),

DimDato[År] = __MaxYT

&& DimDato[Dato] <= __MaxDT)

)

RETURN

IF (__MaxDT >= __TD, BLANK(), __Rtotal)

The IF part blank out numbers in future, and I think that is where I need the helt

[daxer-almighty]

acc =
VAR Today_ = TODAY ()
var EffectiveDates =
    INTERSECT(
        DISTINCT( DimDato[Dato] ),
        CALCULATETABLE(
            DISTINCT( DimDato[Dato] ),
            DimDato[Dato] <= Today_,
            REMOVEFILTERS( DimDato )
        )
    )
VAR RTotal =
    CALCULATE (
        SUM ( FactFinans[#Bogførtbeløb] ),
        CALCULATETABLE(
            DATESYTD( DimDato[Dato] ),
            EffectiveDates
        ),
        REMOVEFILTERS( DimDato )
    )
return
    RTotal