Advertisement
Guest User

Untitled

a guest
Apr 24th, 2014
40
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.21 KB | None | 0 0
  1. allDates.Sort(Function(d1, d2) d2.CompareTo(d1))
  2.  
  3. allDates.GroupBy(Function(n) n).Select(Function(g) New With {.Number = g.Key, .Quantity = g.Count}).OrderByDescending(Function(o) o.Quantity).FirstOrDefault
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement