年龄计算小程序

taoether

=======================

    年龄计算小程序

=======================

年龄计算小程序1.00

---

　　这个小程序是我在整理宝贝女儿照片时所做的。

　　因为照片上只有拍摄日期，但我要标注女儿的年龄，几年几月又几天，所以才做了这个小小的程序。

　　此程序可以计算虚岁，周岁，天数，并可计算出年龄合XX年XX月XX天。程序界面如：年龄计算小程序1.00.jpg。

　　计算年龄虽然看起来很简单，但实际做起来要考虑很多情况，我采用的具体计算方法如下：

　　1，计算虚岁时，两个日期年份相减后要加1，因为习惯上，人一出生就是1岁，过了一个年后就变为2岁了。

　　2，计算周岁时，要考虑当前日期是不是过了生日(此时要考虑当前月份和日期是否过了生日的前一天，一定要注意是前一天，而不是生日当天)，过了生日，周岁为两个年份相减的结果，否则要在结果上再减1。

　　3，计算天数时，可以直接将两个日期相减，但要再加1，才是正确的天数。

　　4，计算年龄(年)时，可以使用计算周岁时的计算方法。

　　5，计算年龄(月)时，要计算最近一次生日的前一天到当前日期的天数，再计算此天数相当于多少个月，这里分别使用了两个值：当周岁<4时，使用30天/月，当周岁>=4时，使用30.43天/月(计算依据为(365*3+366)/12*4=30.437)。这样设置可能也不太合理，暂时这样设置吧。

　　6，计算年龄(天)时，使用计算年龄(月)时的余数即可。

　　不好意思，雕虫小技，让大家见笑了!

TTT 13:48 2005-7-29

+++

年龄计算小程序1.01

---

　　此次在原来的程序上加了按钮，可以执行计算和清除数据，班门弄斧，雕虫小技，见笑见笑!

　　此外，修改计算年龄(月)和年龄(天)时使用的每月天数，由原来的按周岁判断而使用不同的值，现改为全部使用30.4167(365/12=30.4167)。(因为忽然发现最近一次生日的前一天到当前日期的天数最多为365天，最多可能含一次闰年问题，不用考虑平均到4年内，所以全部采用30.4167，忽略闰年问题，这样可以将错误减少到最小。)

　　程序界面如：年龄计算小程序1.01.jpg。

TTT 13:48 2005-8-1

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2005-8-2 15:09:32编辑过]

hsguo

比较实用！谢了！

jollyhua

最好搞一个测运程的

huzh164133

太好了,我找了好久,谢谢

gaohong_1129

看了一下，觉得不错

wineleven

为什么我一打开就告诉我“此工作薄已经丢失了其VBA项目、Activ控件以及其他任何与可编程序性相关的功能”  请高手指教！

hgmjj

我初到，咋下载不来！？

sumir

学习学习，谢了 :)

杏林鹰

谢了！找了很久

wuxin

很不错！！学习了！谢谢啊