以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于日期比较的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53308)
--  作者：老初学者
--  发布时间：2014/7/4 15:22:00
--  关于日期比较的代码
我是新手,求一能比较2个日期大小和相差几天的函数或代码,谢谢!急!
--  作者：有点甜
--  发布时间：2014/7/4 15:23:00
--  

参考

 

Dim d1 as Date = #3/17/2002 12:30#
Dim d2 as Date = #1/1/2008 18:30#
Dim t As TimeSpan = d2 - d1
Output.Show(t.TotalDays & "天")

 

http://www.foxtable.com/help/topics/0287.htm

 
--  作者：Bin
--  发布时间：2014/7/4 15:24:00
--  
DateDiff(interval,date1,date2)
返回两个日期之间的间隔。
Interval 包含以下设置：
yyyy 年 
q    季度 
m    月 
y    某年的某一天 
d    天 
w    工作日 
ww   周 
h    时 
n    分 
s    秒
--  作者：Bin
--  发布时间：2014/7/4 15:25:00
--  
Dim d1 As Date = Date.Today
Dim d2 As Date = "1989-05-08"
MessageBox.show(DateDiff("d",d2,d1))
--  作者：老初学者
--  发布时间：2014/7/4 15:57:00
--  
谢谢1