以年、月、日为单位计算年龄

Question

以下代码返回特定数据库中的年龄。

我需要添加什么才能获得准确的日期（以年、月、日为单位）？

<%= DateDiff("yyyy",rs("Dateofbirth"),date)%>  

即结果应为 12 岁 6 个月 8 天。

Answer 1

也许最快、最简单的方法是将日期差除以 365.25，如下所示：

Dim age, dob
dob = CDate("01-Jan-1980")
age = (Now() - dob) / 365.2425

尽管它并不完全准确，但对于 99 .99 % 的使用情况（即您不需要计算精确秒的情况）来说，它很可能足够准确。