Foxtable(狐表)用户栏目专家坐堂 → 计算年龄


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

主题:计算年龄

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


加好友 发短信
等级:超级版主 帖子:107783 积分:548260 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/10 17:22:00 [只看该作者]

请举例说明,给出几个日期,说明哪里不对

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


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
  发帖心情 Post By:2020/4/10 17:45:00 [只看该作者]

以下是引用有点蓝在2020/4/10 17:22:00的发言:
请举例说明,给出几个日期,说明哪里不对

比如:2004-01-01  算出来是16岁,应该是15才对;

        2002-10-12  算出来是17岁,正确;

       2003-09-10   算出来是17岁

人家给的公式是:取整{(“2019-08-31”-[出生日期])/10000},要求把两个日期变为8位数相减除以10000后取整。

下面是算出来的年龄。

2004-01-01  16
2002-07-23  17
2002-10-20  17
2004-01-05  16
2002-10-10  17
2003-09-10  16
2002-02-08  18
2001-04-09  18
2001-10-02  18
2005-01-20  15
2003-10-10  16
2001-12-01  18
2002-04-05  17
2003-03-21  16
2001-03-08  18
2002-04-25  17
2004-05-10  15
2002-08-21  17
2005-03-25  14
2005-01-09  15
2005-11-20  14
2003-04-16  16
1998-09-06  16
2000-01-13  20
1998-05-07  21
2000-02-18  20
2001-07-24  18
1999-11-19  20
2001-03-10  18
2000-08-13  19
2001-07-08  18
1994-05-04  25
2000-06-11  19
2001-07-02  18
2002-09-10  17
2004-10-22  15
2004-10-09  15
2003-06-26  16
2005-04-12  14
2005-08-15  14
2004-02-18  16
2003-06-03  16
1998-07-02  21
2000-10-05  19
2005-03-21  14
2004-06-10  15


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


加好友 发短信
等级:超级版主 帖子:107783 积分:548260 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/11 8:40:00 [只看该作者]

向下取整就可以了

Dim tp As TimeSpan = Date.today - CDate("2004-10-22")
Dim d As Double = Math.Round(tp.TotalDays / 365.2422,2)
Output.Show(d)
Dim n As Integer = Math.Floor(d)
Output.Show(n)  

 回到顶部
总数 13 上一页 1 2