[求助]日期排序及求最大值及最小值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]日期排序及求最大值及最小值

共有1740人关注过本帖树形打印复制链接主题：[求助]日期排序及求最大值及最小值

xvkewen

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：590 积分：5495 威望：0 精华：0 注册：2012/6/29 19:11:00

[求助]日期排序及求最大值及最小值 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4628 积分：33778 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2016/12/10 21:49:00 [只看该作者]

加入数组或集合，然后排序取值

y2287958

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4628 积分：33778 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：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

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：590 积分：5495 威望：0 精华：0 注册：2012/6/29 19:11:00

Post By：2016/12/10 22:04:00 [只看该作者]

您的方法在帮助里找不到呀，用集合怎么做呢？

有点色

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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))

下一主题 >> << 上一主题

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