如何精确计算年龄？

sxgaobo

DateDiff("yyyy",[出生日期],Date())可以计算两日期间相差的年，
DateDiff("yyyy",[1978-1-22],[2008-1-22])=30 可 DateDiff("yyyy",[1978-1-25],Date())也=30
怎么可以精确的计算年龄啊，就是说[2008-1-22]-[1978-1-22]=30 而 [2008-1-22]-[1978-1-25]=29

rjacky

之前碰到过，得到的答案是西方算年的方法和我们的不一样导致的，2007－12－31与2008－1－1就是相差一年。

所以datediff函数当计算参数是year是，它只进行一个简单的减法运算，2008－1978＝30

咱家是猫

即然是精确计算,我想就没有太大的麻烦了吧,精确到日最简单.
年龄=(Date(Now())-Date(出年年月日)) \ 365

rjacky

猫咪所说的计算公式应该是这样的吧 ：年纪=DateDiff("d",#1978-12-25#,Date())\365

由于有闰年的存在，这种算法和实际还是有出入的，例如某人2007-2-1出生， 到2009-1-31应该是还差一天才到2岁，而不是计算结果的2岁。

从严格的角度应该这样算的 ：
年龄=DateDiff("yyyy", date1, date2) - IIf(DatePart("d", date1) - DatePart("d", date2) = 0, 0, (DatePart("d", date1) - DatePart("d", date2)) / Abs(DatePart("d", date1) - DatePart("d", date2)))

wolfman

学习，学习，再学习

咱家是猫

是的,我那个忽略了闰年

kangking

=IIf(month(出生日期)>Month(Date()),Year(Date())-year(出生日期)-1,Year(Date())-year(出生日期))

上面的计算精确到月.

sxgaobo

这两个计算都有问题啊：
1: 年龄=Year(Date())-Year([出生日期])-IIf(Month(Date())<Month([出生日期]),1,IIf(Month(Date())=Month([出生日期]),Day(Date())<Day([出生日期]),0))
2: 年龄=DateDiff("yyyy",[出生日期],Date())-IIf(DatePart("d",[出生日期])-DatePart("d",Date())=0,0,(DatePart("d",[出生日期])-DatePart("d",Date()))/Abs(DatePart("d",[出生日期])-DatePart("d",Date())))


[ 本帖最后由 sxgaobo 于 2008-1-23 18:23 编辑 ]

andymark

try
Function IntYear(FirstDay As Date, LastYear As Date) As Integer
Dim IntTem As Integer
IntTem = Year(LastYear) - Year(FirstDay)
If DateAdd("yyyy", IntTem, FirstDay) > LastYear Then
  IntYear = IntTem - 1
  Else
  IntYear = IntTem
End If

End Function

rjacky

晕，当时没有测试确认过，漏了个小于号

年龄=DateDiff("yyyy",[出生日期],Date())-IIf(DatePart("d",[出生日期])-DatePart("d",Date())<=0,0,(DatePart("d",[出生日期])-DatePart("d",Date()))/Abs(DatePart("d",[出生日期])-DatePart("d",Date())))