以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求列中最大的日期(有简便写法吗) (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187871) |
-- 作者:puma -- 发布时间:2023/8/17 13:15:00 -- 求列中最大的日期(有简便写法吗) Dim d2 As Date = Date.Today For Each dr1 As DataRow In drs d1 = dr1("日期") If DateDiff("d", CDate(d1), CDate(d2)) < 0 Then d2 = d1 \' MessageBox.show( d1 & "大") Else \' MessageBox.show( d2 & "大") End If Next Output.Show("最大日期是:" & d2 )
|
-- 作者:有点蓝 -- 发布时间:2023/8/17 13:35:00 -- http://www.foxtable.com/webhelp/topics/0393.htm Dim d2 As Date = DataTables("订单").Compute("max(数日期)")
|