with member Measures.Today as vba!dateadd("yyyy", -1, vba!Now())
member Measures.FirstDayOfCurrentMonth as
cdate(cstr(vba!Month(vba!dateadd("yyyy", -1,vba!Now())))
+"-01-"+Cstr(vba!Year(vba!dateadd("yyyy", -1, vba!Now()))))
member [Measures].[YTD] as
YTD([Dim Time].[Date].&[2010-04-15T00:00:00])
select [Measures].[Belopp] on columns,
non empty [Dim Time].[Hierarchy].[Date].members
having [Dim Time].[Hierarchy].membervalue <= Measures.Today
and [Dim Time].[Hierarchy].membervalue >= Measures.FirstDayOfCurrentMonth
on 1