Foxtable(狐表)用户栏目专家坐堂 → 怎么计算统计年龄大于或小于14岁


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

主题:怎么计算统计年龄大于或小于14岁

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


加好友 发短信
等级:小狐 帖子:327 积分:2825 威望:0 精华:0 注册:2012/11/16 12:19:00
怎么计算统计年龄大于或小于14岁  发帖心情 Post By:2015/1/3 13:09:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看
如图,怎么计算统计年龄大于或小于14岁?

如计算2014.9月,就是截止9月30日,独生子女表的子女出生日期如果大于14岁也就是大于2014.9.30日就统计在大于14岁这一列内,如果小于14岁就统计在小于14岁列。

我定义的有:

Dim year As WinForm.ComboBox = e.Form.Controls("年")
Dim month As WinForm.ComboBox = e.Form.Controls("月")
Dim csrq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

Dim FirstDay As Date = New Date(year.Text,1,1) '第一天
Dim LastDay As Date = New Date(year.Text,month.Text,Date.DaysInMonth(year.Text,month.Text)) '最后一天

 

请教怎么写代码表示?


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


加好友 发短信
等级:小狐 帖子:327 积分:2825 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By:2015/1/3 14:38:00 [显示全部帖子]

这个只能算出到今天是几岁了,可是表达不了截止到2014.12.31独生子女出生日期大于或小于14岁,截止到2014.9.30独生子女出生日期大于或小于14岁,或截止到2014.6.30独生子女出生日期大于或小于14岁,或截止到2014.3.31独生子女出生日期大于或小于14岁,这该如何统计?

 

定义一个表达式,判断出生日期大于或小于14岁,在12.31日之前,在9.30日之前,然后得到一个统计数,该如何写?

 

 r("领独生子女证人数_0至14岁") = DataTables("独生子女").Compute("Count(_Identify)", filter & "And                       " )
 r("领独生子女证人数_14岁以上") = DataTables("独生子女").Compute("Count(_Identify)", filter & "And                       " )

[此贴子已经被作者于2015-1-3 14:42:40编辑过]

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


加好友 发短信
等级:小狐 帖子:327 积分:2825 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By:2015/1/3 14:51:00 [显示全部帖子]

不好意思,重新用这个
打开后在季报表,生成报表按钮里
[此贴子已经被作者于2015-1-3 15:42:53编辑过]

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


加好友 发短信
等级:小狐 帖子:327 积分:2825 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By:2015/1/3 15:12:00 [显示全部帖子]

老师解决好了吗?

 


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


加好友 发短信
等级:小狐 帖子:327 积分:2825 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By:2015/1/3 16:09:00 [显示全部帖子]

For Each dr As DataRow In DataTables("独生子女").DataRows
dr("年龄") = DateDiff("yyyy",dr("子女出生日期"),LastDay)
Next

 

 

应该计算到2014.12.31日是几岁, 缺个条件,子女出生日期<=LastDay


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


加好友 发短信
等级:小狐 帖子:327 积分:2825 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By:2015/1/3 16:11:00 [显示全部帖子]

老师你把其他的删除掉吧,只留重点的

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


加好友 发短信
等级:小狐 帖子:327 积分:2825 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By:2015/1/3 16:14:00 [显示全部帖子]

四个月的数字是一样的,应该缺少什么条件

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


加好友 发短信
等级:小狐 帖子:327 积分:2825 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By:2015/1/3 16:28:00 [显示全部帖子]

年龄应该截止到月了,因为比如9月就要算这个人到9月是不是14岁,到12月是不是14岁,应该这样理解,是不是再加个月?

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


加好友 发短信
等级:小狐 帖子:327 积分:2825 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By:2015/1/3 16:54:00 [显示全部帖子]

这个还可以,谢谢,一会我再对照下数字

 回到顶部