Foxtable(狐表)用户栏目专家坐堂 → 计算某一个日期到今天有多久,代码怎么写呢?


  共有4733人关注过本帖树形打印复制链接

主题:计算某一个日期到今天有多久,代码怎么写呢?

帅哥哟,离线,有人找我吗?
fubblyc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
计算某一个日期到今天有多久,代码怎么写呢?  发帖心情 Post By:2013/9/8 9:01:00 [只看该作者]

请教各位大侠,计算某一个日期到今天有多久,代码怎么写呢?

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

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/9/8 9:23:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=40055

 回到顶部
帅哥哟,离线,有人找我吗?
有点酸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2013/9/8 9:42:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
fubblyc
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2013/9/8 9:43:00 [只看该作者]

大侠看下这个。。。

 回到顶部
帅哥哟,离线,有人找我吗?
有点酸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2013/9/8 9:44:00 [只看该作者]

哈,你看3楼啊。

 回到顶部
帅哥哟,离线,有人找我吗?
fubblyc
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2013/9/8 9:58:00 [只看该作者]

麻烦大侠帮忙看下。。。我看了那个,还是没弄懂怎么写。。。

 回到顶部
帅哥哟,离线,有人找我吗?
有点酸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2013/9/8 10:01:00 [只看该作者]

再看这个:

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

 

这次应该可以了

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点酸
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By: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)


 回到顶部