主题：[求助]日期排序及求最大值及最小值

Dim d1 As Date = #10/18/2016 10:25#
Dim d2 As Date = #10/10/2016 16:32#
Dim d3 As Date = #10/08/2016 12:00#
Dim d4 As Date = #10/15/2016 18:00#
Dim d5 As Date = #10/16/2016 11:00#

Dim ds As New List(Of Date)
ds.Add(d1)
ds.Add(d2)
ds.Add(d3)
ds.Add(d4)
ds.Add(d5)
ds.sort

msgbox(ds(0))