以文本方式查看主题

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

--  作者:fubblyc
--  发布时间:2013/9/8 9:01:00
--  计算某一个日期到今天有多久,代码怎么写呢?
请教各位大侠,计算某一个日期到今天有多久,代码怎么写呢?

比如2012年8月8日,距离今天有13个月。

--  作者:lsy
--  发布时间:2013/9/8 9:23:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=40055
--  作者:有点酸
--  发布时间:2013/9/8 9:42:00
--  

可以看看:

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

 


--  作者:fubblyc
--  发布时间:2013/9/8 9:43:00
--  
大侠看下这个。。。
--  作者:有点酸
--  发布时间:2013/9/8 9:44:00
--  
哈,你看3楼啊。
--  作者:fubblyc
--  发布时间:2013/9/8 9:58:00
--  
麻烦大侠帮忙看下。。。我看了那个,还是没弄懂怎么写。。。
--  作者:有点酸
--  发布时间:2013/9/8 10:01:00
--  

再看这个:

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

 

这次应该可以了

 

 


--  作者:有点酸
--  发布时间:2013/9/8 10:05:00
--  

我测试可以:

 

Dim  y,m,d As  Integer
Dim dt1 As  Date =  #8/8/2012#
Dim dt2 As  Date =  Date.Today
DateYMD(dt1,dt2,y,m,d)
messagebox.show(y * 12 + m)