1
2
3
4
Dim results = From s In _CurrentUser.MonthlySpends.SelectMany(Function(i) i.DailySpends) _
Where TypeOf s Is Spend AndAlso s.TimeStamp < Date.Now AndAlso s.TimeStamp > Date.Now.AddDays(-_days) _
Group By [Date] = s.TimeStamp.Date Into group = Group _
Select [Date], Total = group.Sum(Function(i) i.Value)