以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么获得两个日期中最大的日期  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49236)

--  作者:mamuaiqing
--  发布时间:2014/4/14 21:40:00
--  怎么获得两个日期中最大的日期
数学函数中可以用Max获得最大值 

Dim Val1 As Integer = 100
Dim
Val2 As Integer = 56
Output.Show(
"较大的是" & Math.Max(Val1,Val2))

 

日期中有这样的函数没?

比如:

Dim Val1 As Date = #01/01/2004#
Dim Val2 As Date = #02/01/2003#


--  作者:有点甜
--  发布时间:2014/4/14 21:42:00
--  

 没有这样的函数,必须通过比较才能得到。


--  作者:mamuaiqing
--  发布时间:2014/4/14 21:57:00
--  
图片点击可在新窗口打开查看
--  作者:有点甜
--  发布时间:2014/4/14 21:59:00
--  

 代码也不复杂吧?

 

 直接用大于小于号去比较就行了

 

 if val1 > val2 then

      \'val1大

 end if


--  作者:2
--  发布时间:2014/4/14 22:09:00
--  
Dim val1 As Date=#01/01/2004#
Dim Val2 As Date = #02/01/2003#
Dim d As Date=iif(val1>Val2,val1,Val2)
MessageBox.Show(d)