VBA计算年龄的问题

pingshanggl

jbjbzjb 发表于 2013-11-3 18:41
哎，受不了，咋就看不懂帖子呢？

1.你要的附件在5楼；

Cells(s, 4) = Int(Application.Days360(Application.Text(Cells(s, 3), "####-##-##"), "2013-08-31") / 360)

这句代码除了９月１日外，其他的任何年月日用来计算年龄好像都没有问题吧

pingshanggl

完美解决方案

Sub 计算年龄()
    i = Sheet1.Range("c65356").End(3).Row
      For s = 4 To i
         If Right(Cells(s, 3), 4) = 901 Then
           Cells(s, 3) = Left(Cells(s, 3), 4) & "0910"
         End If
       Cells(s, 4) = Int(Application.Days360(Application.Text(Cells(s, 3), "####-##-##"), "2013-08-31") / 360)
     Next
End Sub
附件.rar (31.55 KB, 下载次数: 75)

2013-11-3 20:01 上传

点击文件名下载附件

jbjbzjb

pingshanggl 发表于 2013-11-3 20:02
完美解决方案

Sub 计算年龄()

真的让人无语。

我的代码年份相减得初步周岁，然后判断其日期(不含出生年份)是否早于8月31日，若早于，则计算所得的上述初步周岁再减1即可得真正的周岁。如此简单、清晰、准确的逻辑代码不要，却坚持要自己那“好象”的代码!
难怪反反复复这么多楼层跟帖下来，始终不明你究竟要何物!

达州张先生

jbjbzjb 发表于 2013-11-3 20:27
真的让人无语。

我的代码年份相减得初步周岁，然后判断其日期(不含出生年份)是否早于8月31日，若早于， ...

你就照1楼楼主的2003版本，”####-##-##“的这种格式给我弄个计算年龄周岁时间截止为8月31日的吧，早于8月31日，年份-年份=实际周岁，迟于8月31日（即9月1日后出生）周岁为年份-年份-1=实际周岁。谢谢了

达州张先生

jbjbzjb 发表于 2013-11-3 20:27
真的让人无语。

我的代码年份相减得初步周岁，然后判断其日期(不含出生年份)是否早于8月31日，若早于， ...

你5楼的附件看见了，符合计算我说的周岁计算，谢谢，今天没分了，明天给你加分，对不住了，抱歉哦。
另外，如果是“####-##-##”的这种格式呢，能否发一个啊，谢谢

liumiaomiao

你的这个ＶＢＡ确实简单，又好理解

忘得快

pingshanggl 发表于 2013-11-3 12:41
有２０１２年８月３１日的，也有２０１２年９月１日的，请你看看

呵呵！大侠！按你25楼的附件如果将日期格式20120901改为2012-09-01后0岁变成60岁，20110901改为2011-09-01后2岁变成26岁了！请教如何修改代码？谢谢！

liumiaomiao

忘得快 发表于 2013-11-5 21:16
呵呵！大侠！按你25楼的附件如果将日期格式20120901改为2012-09-01后0岁变成60岁，20110901改为2011-09 ...

ＬＺ已在一楼更新了内容
不知下面这个是否符合你的要求？




123.rar (19.56 KB, 下载次数: 41)

2013-11-6 19:23 上传

点击文件名下载附件

忘得快

liumiaomiao 发表于 2013-11-6 19:23
ＬＺ已在一楼更新了内容
不知下面这个是否符合你的要求？

谢谢大侠回复！大侠的代码是将日期格式的变换来运算，2013-09-01变换为20130901后计算结果是-1周岁！有没有不变yyyy-mm-dd日期格式的代码？谢谢！

liumiaomiao

忘得快 发表于 2013-11-6 21:46
谢谢大侠回复！大侠的代码是将日期格式的变换来运算，2013-09-01变换为20130901后计算结果是-1周岁！有没 ...

123.rar (20.59 KB, 下载次数: 36)

2013-11-7 07:25 上传

点击文件名下载附件

你看一下