with member measures.cd as '[Date].[Calendar].[Date].&[' + format( now(), "2010MMdd" ) + ']'
member PPsetstr as '{' + MemberToStr({MTD(
	  Cousin(
	    StrToMember(measures.cd), 
	    ParallelPeriod([Date].[Calendar].[Month], 12, [Date].[Calendar].CurrentMember)
	  )
	) as PPSet}.Item(0).Item(0)) + ':' + MemberToStr(BottomCount(PPset, 1).Item(0).Item(0)) + '}'
member CYsetstr as '{' + MemberToStr({MTD(
	  Cousin(
	    StrToMember(measures.cd), 
	    [Date].[Calendar].CurrentMember
	  )
	) as CYset}.Item(0).Item(0)) + ':' + MemberToStr(BottomCount(CYset, 1).Item(0).Item(0)) + '}'
member PPsum as sum( MTD(
	  Cousin(
	    StrToMember(measures.cd), 
	    ParallelPeriod([Date].[Calendar].[Month], 12, [Date].[Calendar].CurrentMember)
	  )
	), [Measures].[Internet Sales Amount])
member CYsum as sum( MTD(
	  Cousin(
	    StrToMember(measures.cd), 
	    [Date].[Calendar].CurrentMember
	  )
	), [Measures].[Internet Sales Amount])

select 
{cd, PPsetstr, PPsum, CYsetstr, CYsum} on columns,
{descendants([Date].[Calendar].[Calendar Year].&[2007], [Date].[Calendar].[Month])} on rows
from [Adventure Works]