Office中国论坛/Access中国论坛

标题: 年龄计算小程序 [打印本页]

作者: taoether 时间: 2005-8-2 20:08
标题: 年龄计算小程序
=======================

年龄计算小程序

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

年龄计算小程序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[attach]12175[/attach]

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

作者: hsguo 时间: 2006-2-11 20:12
比较实用！谢了！

作者: jollyhua 时间: 2006-5-25 20:54
最好搞一个测运程的

作者: huzh164133 时间: 2006-6-20 06:07
太好了,我找了好久,谢谢

作者: gaohong_1129 时间: 2007-4-22 01:36
看了一下，觉得不错

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

作者: hgmjj 时间: 2007-8-17 09:07
我初到，咋下载不来！？

作者: sumir 时间: 2007-8-18 18:07
学习学习，谢了

作者: 杏林鹰 时间: 2007-8-20 20:46
谢了！找了很久

作者: wuxin 时间: 2007-8-22 12:35
很不错！！学习了！谢谢啊

作者: 马龙兴 时间: 2008-3-28 13:17

作者: 4461 时间: 2008-4-2 12:31
！学习了！谢谢啊

作者: ytklhg 时间: 2008-4-2 17:38
谢谢楼主，很不错！学习了！

作者: asdfg123 时间: 2008-4-5 08:21
比较实用！谢了！

作者: jasur 时间: 2008-4-5 11:59
[:29] [:33] [:34] [:30] [:31] [:50] [:32]

作者: shanui 时间: 2008-4-7 10:13
[:30]

作者: chenwm1973 时间: 2008-4-7 10:27
[:50] [:50] [:50]

作者: hou_sir 时间: 2008-4-11 10:00
顶顶顶顶

作者: 东方红 时间: 2008-4-27 11:22
标题: 回复 1# 的帖子
太妙了,感谢[:29]

作者: shaquall 时间: 2008-5-2 22:06
谢谢~~~

作者: ninehead 时间: 2008-5-8 15:53
[:26] [:26] [:26] [:24] [:24] [:24]

作者: 412824 时间: 2008-5-11 22:05
我学习学习[:50]

作者: 412824 时间: 2008-5-11 22:06
怎么还不能下啊[:31]

作者: mingyouji 时间: 2008-5-12 14:31
标题: 挺有意思的。
挺有意思的。

作者: aeco0918 时间: 2008-5-12 16:20
标题: 不怎么好用
有点难度

作者: wichin 时间: 2008-5-23 15:21
好谢谢

作者: yangzp.2007 时间: 2008-5-26 15:55
标题: 学习学习
学习学习

作者: mictiger 时间: 2008-5-26 20:19
学习学习，谢谢

作者: yueshengdeng 时间: 2008-5-31 21:09
收藏了谢谢

作者: bingzai826 时间: 2008-5-31 22:39
标题: 看看程序
看看程序

作者: supperboy 时间: 2008-8-14 15:50
对我帮助很大,我用在公司的人事档案上可以用到

作者: dong2008 时间: 2008-8-28 17:24
怎么老是这样的啊

作者: fzwjz 时间: 2008-9-3 07:55
比较实用！谢了！

作者: zzst2006 时间: 2008-9-8 13:44
标题: 回复 1# 的帖子
你有必要这样吗？回复你的帖子有什么好处吗？你不嫌烦人吗

作者: zhaohuaw 时间: 2008-9-8 14:54
谢谢，想下载来看下！

作者: xxwwj 时间: 2008-9-8 18:20
标题: dddd
ddddddddddd

作者: dingjiayu 时间: 2008-9-19 11:32
我想要哦。

作者: qwer_ 时间: 2008-10-5 16:24
[:33] 比较实用！谢了！

作者: suzutamiyang 时间: 2008-10-9 10:32
看看再说！

作者: u2f2 时间: 2008-12-20 14:45
看看呢,谢谢分享

作者: 刘志文 时间: 2008-12-22 18:18
学习学习，谢了[:50]

作者: dgzxfxx 时间: 2009-1-12 15:56
很不错！！学习了！谢谢啊

作者: lqq 时间: 2009-8-30 15:32
很好，

作者: sunwrsun 时间: 2015-1-7 12:26
看看

作者: 刘青梅 时间: 2016-12-4 16:02
比较实用！谢了！

作者: qcq127 时间: 2018-7-15 17:17
下载试用一下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)