查无此鸟的博客 一个不误正业的交通工程师的个人网站

[新浪博客]根据身份证号码计算年龄的Excel函数

标签:野生程序猿 | 发表时间:2014-12-11 13:40:01 | 更新时间: 2020-04-23 19:07:38 | 阅读数:214 | 评论数:0 | 字数:792

本文2014-12-11 13:40:01首发于新浪博客,地址:http://blog.sina.com.cn/s/blog_638f98570102vfmz.html。
是的,本博客的样式又变了。希望这次改变能够保持长一点的时间。
是的,昨天刚发表了一篇和Excel自定义函数有关的博客,今天又一篇,有凑数的嫌疑。但是,保存知识和传播知识本来就是写博客的初衷,所以也并不多余。
如果不知道什么是Excel自定义函数,请移步这里[1]。
上一篇博客是关于计算桩号之差的Excel自定义函数(VBA)[2],里面有如何使用Excel自定义函数(VBA函数)的简单步骤。
将下面的内容复制到模块中去,保存后即可使用自定义的IdentityNumberAge函数计算某个身份证号在某一年的年龄。
FunctionIdentityNumberAge(身份证号码,计算年【四位数字】AsInteger) DimID'身份证号码 DimiYear'输入的计算年 DimiBornYear'出生年 ID=身份证号码 iYear=计算年【四位数字】 '从ID中求得出生年 ID=Trim(ID)'删除空格 IfLen(ID)=18Then'18位身份证号码 iBornYear=Mid(ID,7,4) ElseIfLen(ID)=15Then'15位身份证号码 iBornYear="19"&Mid(ID,7,2) Else MsgBox"身份证号码有误!提醒:检查数据中是否有换行!" iBornYear="Error!" EndIf IdentityNumberAge=iYear-iBornYear EndFunction
[1]http://blog.sina.com.cn/s/blog_638f98570102vfet.html [2]http://blog.sina.com.cn/s/blog_638f98570101fbqn.html

版权声明:本文由@查无此鸟创作,采用知识共享 署名-非商业性使用-禁止演绎 3.0 中国大陆许可协议进行许可。除非注明,均为原创文章,请在转载时注明来源,并完整保留本段声明。本文地址: http://liyonggang.net/blog.aspx?id= 2014-12-11



本文评论:
暂无评论……

发表评论:(昵称或评论内容不允许为空!邮箱可不填,但建议填写以备联系,邮箱将不显示在评论中。) 昵称 邮箱

查无此鸟的博客

Copyright©查无此鸟 2020~2022, All Rights Reserved

邮箱:t5lyg@126.com

其他链接

卢昌海的网站 | 鱼の后花园博客) | 新交通人的技术闲谈-知乎 | FROYOs Blog | 博客园 | 鸟哥Linux | 蜂鸟的小窝 | 大眼仔

AutoCAD.NET: Kevin K | 大非sb