求助
access吧
全部回复
仅看楼主
level 2
怎么用出生日期计算年龄,在access2010中,能不能告诉详细教程,谢谢!,百度过,表示看不懂,在线等。
2015年12月16日 08点12分 1
level 9
year(data)-year(出生日期)+1
2015年12月16日 10点12分 2
谢谢
2016年03月01日 09点03分
吧务
level 13
Option Compare Database
Function nianling(mynianling As Date) As String
'本函数用于计算年龄月龄日龄
Dim i%
Dim sui% '岁
Dim yue% '月
Dim ri% '日 '出处:ACCESS开发者。一切佳有可能,liting
For i = 1 To 150 '进行150次的计算估计能活到150岁以上的是不可想像的
If DateAdd("yyyy", sui + 1, mynianling) <= Date Then
sui = sui + 1
End If
Next i
For i = 1 To 13 '月份只要12次计算就足够了,这里用了13次
If DateAdd("m", sui * 12 + yue + 1, mynianling) <= Date Then
yue = yue + 1
End If
Next i
ri = Date - DateAdd("m", sui * 12 + yue, mynianling) 'Me.日龄当然就容易算了
nianling = sui & "岁" & yue & "个月" & ri & "日" '如果你只想显示某一项,可以修改这一句
End Function
非常准确的年龄月龄日龄计算函数 ,参考office中国
http://www.office-cn.net/thread-69875-1-1.html
2015年12月18日 03点12分 3
1