标签：
野生程序猿 | 发表时间：2014-12-11 13:40:01 | 更新时间： 2020-04-23 19:07:38 | 阅读数：450 | 评论数：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