请问如何转换如下的处理逻辑(求岁数)

fangxu1999 fangxu1999 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
A1..An中保存的是身份证号码信息,希望能够在B1..Bn中得到相应当前日期的岁数信息。希望可以提供一个按钮能够实现自动求值的功能。
处理逻辑的伪代码如下,由于没有彻底的学过VB编程,请问如何转换如下的代码。
谢谢各位了。
for(int i=1; i<=n; i++){
String str = Range(Ai);
String birthYear;
if(str.length()==18){
birthYear = str.substring(6, 4);
}
else if(str.length()==15){
birthYear = "19"+str.substring(6,2);
}
Range(Bi) = currentYear-birthYear;
}
...全文

相关推荐

评论 2
收藏 已收藏
分享
返回顶部
fangxu1999
Office开发/ VBA 5,174 成员 17,906 内容