VBA计算年龄的问题

pingshanggl · 发表于 2013-11-3 11:11

jbjbzjb 发表于 2013-11-3 10:38
我只能告诉你：该句代码可能无从改起。

另：从你在18楼和19楼的回帖看，我不想再次跟这帖了，如无特殊 ...

我只是想说，在代码中年月日的格式是：####-##-##，并无别的意思

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

jbjbzjb 发表于 2013-11-3 10:38
我只能告诉你：该句代码可能无从改起。

另：从你在18楼和19楼的回帖看，我不想再次跟这帖了，如无特殊 ...

我只是想说，年月日的格式为####-##-##，并无别的意思

有关１８楼的回复，可看下面的附件

123.rar (20.93 KB, 下载次数: 66)

jbjbzjb · 发表于 2013-11-3 11:26

pingshanggl 发表于 2013-11-3 11:19
我只是想说，年月日的格式为####-##-##，并无别的意思

有关１８楼的回复，可看下面的附件

不下附件了。

17楼的代码是排序的代码，跟计算周岁何关？“不知什么原因没有计算出来”，你在18楼对17楼的内容如此回帖，真叫人无语，难道是“不知什么原因没有达到排序效果”？若果真是如此意思，你的回帖用语让人。。。。

达州张先生 · 发表于 2013-11-3 12:31

jbjbzjb 发表于 2013-11-3 09:29
昨晚已经注意到13楼的跟帖，忽然想起你源附件中的那句代码，似乎有“2013－8－31”字样。当初没细看那句代 ...

发个完整的附件来啊，我也看好这样的计算年龄的表格，麻烦你传个以8月31日为界限的计算年龄的附件，我给你评分，谢谢！

pingshanggl · 发表于 2013-11-3 12:41

达州张先生发表于 2013-11-3 12:31
发个完整的附件来啊，我也看好这样的计算年龄的表格，麻烦你传个以8月31日为界限的计算年龄的附件，我给你 ...

123.rar (20.15 KB, 下载次数: 64)

有２０１２年８月３１日的，也有２０１２年９月１日的，请你看看

达州张先生 · 发表于 2013-11-3 17:39

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

版本高了，我是2003的版本，打不开，能给我搞个2003的版本吗，谢谢

jbjbzjb · 发表于 2013-11-3 17:57

达州张先生发表于 2013-11-3 17:39
版本高了，我是2003的版本，打不开，能给我搞个2003的版本吗，谢谢

原本不想说，终于忍不住：我在11楼和12楼已经提到附件已更新，何以直到现在还在要所谓的附件，结果却又高版本工作簿无法打开。你就不会回头看下前面的楼层？真有点不可思议。

借此楼层，顺带给楼主说句，下列代码句姑且不说用来计算一般情况下的日期其原理是否合理，就9月1日这一特殊日期来说，代码句的计算结果是错误的：
Cells(s, 4) = Int(Application.Days360(Application.Text(Cells(s, 3), "####-##-##"), "2013-08-31") / 360)

最后：真不知楼主究竟对该代码句想作何更改，在21楼告知格式“####-##-##”是什么意思？是格式有问题吗？

达州张先生 · 发表于 2013-11-3 18:30

jbjbzjb 发表于 2013-11-3 17:57
原本不想说，终于忍不住：我在11楼和12楼已经提到附件已更新，何以直到现在还在要所谓的附件，结果却又高 ...

我不是发帖的楼主，但我需要这样的内容，我又是2003的版本，希望你做一个2003的版本的计算结果为：计算年龄以8月31日为止（含8月31日），8月31日12时以前出生的当年为一周岁；9月1日（含9月1日）以后的当年计算为0岁。谢谢！

jbjbzjb · 发表于 2013-11-3 18:41

本帖最后由 jbjbzjb 于 2013-11-3 18:47 编辑

达州张先生发表于 2013-11-3 18:30
我不是发帖的楼主，但我需要这样的内容，我又是2003的版本，希望你做一个2003的版本的计算结果为：计算年 ...

哎，受不了，咋就看不懂帖子呢？

1.你要的附件在5楼；
2.我说的楼主指的是发帖人，要不该怎么称呼，我还想不到别的好的词，要是针对你，我就会说26楼，或者说26楼的楼主，唉，晕了，不说了，越说，把自个儿也给绕进去了

回头看了看，估计你又要晕，所以再次补充下：

原本不想说，终于忍不住：我在11楼和12楼已经提到附件已更新，何以直到现在还在要所谓的附件，结果却又高版本工作簿无法打开。你就不会回头看下前面的楼层？真有点不可思议。
++++++++++++++++++++++++

上述这话是针对你说的

借此楼层，顺带给楼主说句，下列代码句姑且不说用来计算一般情况下的日期其原理是否合理，就9月1日这一特殊日期来说，代码句的计算结果是错误的：
Cells(s, 4) = Int(Application.Days360(Application.Text(Cells(s, 3), "####-##-##"), "2013-08-31") / 360)

最后：真不知楼主究竟对该代码句想作何更改，在21楼告知格式“####-##-##”是什么意思？是格式有问题吗？
++++++++++++++++++++++++++++++++
上述这话是针对发帖人说的(不是你、我这样的跟帖人)。

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

达州张先生发表于 2013-11-3 17:39
版本高了，我是2003的版本，打不开，能给我搞个2003的版本吗，谢谢

里面有2003的版本，也有2007的版本,里面就是一些特定的数据，如：20120901和20120831等

123.rar (31.44 KB, 下载次数: 66)

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

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

评分