计算年龄函数-杨雪
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


计算年龄函数

发表时间:2021/1/29 20:26:53 评论(0) 浏览(3758)  评论 | 加入收藏 | 复制
   
摘 要:以下函数以给定日期到当前日期的年数为单位计算年龄。
正 文:

源   码:

Function Age(varBirthDate As Variant) As Integer
    Dim varAge As Variant

    If IsNull(varBirthDate) Then Age = 0: Exit Function

    varAge = DateDiff("yyyy", varBirthDate, Now)
    If Date < DateSerial(Year(Now), Month(varBirthDate), _
                         Day(varBirthDate)) Then
        varAge = varAge - 1
    End If
    Age = CInt(varAge)
End Function



Access软件网交流QQ群(群号:198465573)
 
 相关文章
计算年龄  【ksiv  2007/11/15】
[Access计算年龄示例]用Access根据出生年月计算年龄大小  【褚玉春  2008/6/22】
[access查询][示例]通过身份证号码提取出生日期、性别、年龄  【gkx219  2008/10/26】
[实例]另一种方式通过身份证号码提取出生日期、性别、年龄、籍贯  【一杯绿茶  2008/10/26】
[access查询]年龄(周岁): access年龄的计算公式,a...  【蒋元根  2010/5/17】
身份证号码处理示例(号码有效性验证,提取籍贯、性别、出生日期、年龄...  【红尘如烟  2010/8/27】
【Access菜鸟入门】知道年龄怎么求出生年份,根据年龄怎么样算出...  【麥田  2017/9/7】
常见问答
技术分类
相关资源
文章搜索
关于作者

杨雪

文章分类

文章存档

友情链接