以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]日期排序及求最大值及最小值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=93931)
--  作者：xvkewen
--  发布时间：2016/12/10 21:45:00
--  [求助]日期排序及求最大值及最小值
如题，如果有以下5(或者是N)个时间值，怎么样求出这些时间里最早和最晚的时间呢？怎么给这些时间排序呢？求支招

Dim d1 As Date = #10/08/2016 10:25#
Dim d2 As Date = #10/10/2016 16:32#
Dim d3 As Date = #10/13/2016 12:00#
Dim d4 As Date = #10/15/2016 18:00#
Dim d5 As Date = #10/16/2016 11:00#
[此贴子已经被作者于2016/12/10 21:45:19编辑过]
--  作者：y2287958
--  发布时间：2016/12/10 21:49:00
--  
加入数组或集合，然后排序取值
--  作者：y2287958
--  发布时间：2016/12/10 21:55:00
--  

例如：

Dim d1 As Date = #10/08/2016 10:25#
Dim d2 As Date = #10/10/2016 16:32#
Dim d3 As Date = #10/13/2016 12:00#
Dim d4 As Date = #10/15/2016 18:00#
Dim d5 As Date = #10/16/2016 11:00#
Dim d() As Date = {d1,d2,d3,d4,d5}
Array.sort(d)
Output.Show(d(0))
Output.Show(d(4))

集合就更简单了，留给您的作业
--  作者：xvkewen
--  发布时间：2016/12/10 22:04:00
--  
您的方法在帮助里找不到呀，用集合怎么做呢？
--  作者：有点色
--  发布时间：2016/12/11 10:56:00
--  

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))