[已解决]这个VBA程序，如何把生日改成只年份相减?

yiting1 · 发表于 2013-12-6 16:54

本帖最后由 yiting1 于 2013-12-13 10:54 编辑

RT，附件中的VBA程序，如何能改成只年份相减，不用管月份的格式？比如有个人是1988-05生的，计算岁数只计算
2013-1988=25，不用管几月。

最佳答案

hwc2ycy

2013-12-10 19:02

把
shu = Int(2013.08 - Val(Replace(Db(i), "-", ".")))
改成
shu = 2013 - Split(Db(i), "-")(0)
保险起见，可以写成shu = 2013 - val(Split(Db(i), "-")(0))

hwc2ycy · 发表于 2013-12-7 09:44

传个附件比较好。

yiting1 · 发表于 2013-12-10 11:05

hwc2ycy 发表于 2013-12-7 09:44
传个附件比较好。

已传附件

hwc2ycy · 发表于 2013-12-10 19:02

把
shu = Int(2013.08 - Val(Replace(Db(i), "-", ".")))
改成
shu = 2013 - Split(Db(i), "-")(0)
保险起见，可以写成shu = 2013 - val(Split(Db(i), "-")(0))

yiting1 · 发表于 2013-12-11 09:34

hwc2ycy 发表于 2013-12-10 19:02
把
shu = Int(2013.08 - Val(Replace(Db(i), "-", ".")))
改成

请教下，原来的程序中的replace是起的什么作用呢？

hwc2ycy · 发表于 2013-12-11 11:17

yiting1 发表于 2013-12-11 09:34
请教下，原来的程序中的replace是起的什么作用呢？

replace是替换呀。
比如1965-02y就成了1965.02了。

		自动登录	找回密码
密码			注册