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) |
Direct link: https://paste.plurk.com/show/16968