VBA计算年龄的问题

忘得快 · 发表于 2013-11-7 23:12

liumiaomiao 发表于 2013-11-7 07:25
你看一下

大侠，还有问题！如：周军15 男 2013-09-27 -1（周岁）！周岁不可能是负数啊！
请大侠再看看，谢谢！

忘得快 · 发表于 2013-11-9 20:07

liumiaomiao 发表于 2013-11-7 07:25
你看一下

谢谢大侠！现在可以了，但在输入日期时必须限定日期格式，否则还好出错。

忘得快 · 发表于 2013-11-10 15:16

liumiaomiao 发表于 2013-11-7 07:25
你看一下

现在可以了，但日期格式还必须预先设置，否则还会出错！谢谢！

liumiaomiao · 发表于 2013-11-10 18:47

本帖最后由 liumiaomiao 于 2013-11-10 19:24 编辑

忘得快发表于 2013-11-7 23:12
大侠，还有问题！如：周军15 男 2013-09-27 -1（周岁）！周岁不可能是负数啊！
请大侠再看看，谢谢！
...

稍微修改了一下，任何情况都不会出现负数

1231.rar (25.07 KB, 下载次数: 73)

忘得快 · 发表于 2013-11-10 23:03

liumiaomiao 发表于 2013-11-10 18:47
稍微修改了一下，任何情况都不会出现负数

谢谢大侠！但日期格式还必须预先设置，如2013-09-10写为2013-9-10还会出错！谢谢！

pingshanggl · 发表于 2013-11-11 19:01

忘得快发表于 2013-11-10 23:03
谢谢大侠！但日期格式还必须预先设置，如2013-09-10写为2013-9-10还会出错！谢谢！

这里有两种格式的：2012-09-10
　　　　　　　　　20120910

当然，如果格式与上面的不同，那就会出现错误．另外，计算时间以２０１３年８月３１日为限，不可以放入之后的时间，否则年龄会是负数
要想计算出生年月到任何时间的年龄，里面的代码就要修改

计算年龄的２种方法.rar (26.32 KB, 下载次数: 76)

忘得快 · 发表于 2013-11-11 21:50

pingshanggl 发表于 2013-11-11 19:01
这里有两种格式的：2012-09-10
　　　　　　　　　20120910

周军6 2012-09-01 0周岁
周军5 2012-08-31 1周岁
好像不符逻辑啊？

lujkhua · 发表于 2013-11-11 22:01

本帖最后由 lujkhua 于 2013-11-11 22:03 编辑

liumiaomiao 发表于 2013-11-10 18:47
稍微修改了一下，任何情况都不会出现负数

如果头尾添加两句：Application.ScreenUpdating = False屏幕刷新关闭， Application.ScreenUpdating = True屏幕刷新开启就完美了！

就不会闪屏了！

pingshanggl · 发表于 2013-11-12 07:03

忘得快发表于 2013-11-11 21:50
周军6 2012-09-01 0周岁
周军5 2012-08-31 1周岁
好像不符逻辑啊？

计算时间以２０１３年８月３１日为限

pingshanggl · 发表于 2013-11-12 07:26

计算年龄的２种方法.rar (26.15 KB, 下载次数: 41)

这个附件所计算的年龄每天都在更新，说穿了就是与电脑的时间设置有关

如：２０１２年８月３１日和２０１２年９月１日的年龄是一样的

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

[已解决] VBA计算年龄的问题