关于计算日期差的一点思路!计算工龄精确到天的方法
时 间:2014-09-19 14:52:34
作 者:周伯通 ID:35938 城市:大冶
摘 要:一个查询计算的表达式,用来计算"工龄"(精确到天)或"离退休倒计时"
要求: 姓名 日期1 日期2 工龄1(效果)
路人甲 2007/4/2 2014/9/18 7年 5个月 16天
正 文:
应 叶落潇潇 的要求,做一个查询计算的 表达式 用来计算 工龄(精确到天)或离退休倒计时
要求: 姓名 日期1 日期2 工龄1(效果)
路人甲 2007/4/2 2014/9/18 7年 5个月 16天
土匪乙 2007/4/22 2014/9/18 7年 4个月 27天
流氓丙 2007/9/20 2014/9/18 6年11个月 29天
基本算法思路:设定为 X 年 Y 个月 Z 天
多种算法以 Z 的算法 因为每个月天数不一样,容易出现误差,
所以,此思路是取一个中间日期值,避免计算当月天数(30天 或31天)
中间值 结论
路人甲 2014/9/2 Z = 2014/9/18 - 2014/9/2 = 16 天
土匪乙 2014/8/22 Z = 2014/9/18 - 2014/8/22 = 27 天(8月有31天)
流氓丙 2014/8/20 Z = 2014/9/19 - 2014/8/20 = 29 天
此思路的Z 计算表达式 如下:
IIf(Day([日期2])-Day([日期1])<0,[日期2]-DateSerial(Year([日期2])
,Month([日期2])-1,Day([日期1])),Day([日期2])-Day([日期1]))
因为1年 12个月 是不变值,统计日期1 和日期2 的 月份总数差 结合上述日期的判定
月份总差 X Y
路人甲 2014*12+9-(2007*12+4)= 89 Int(89,12)=7 89 mod 12 =5
土匪乙 2014*12+9-(2007*12+4)-1 = 88 Int(88,12)=7 88 mod 12=4
流氓丙 2014*12+9-(2007*12+9)-1 = 83 Int(83,12)=6 83 mod 12=11
可见结论出来了,
表达式汇总如下:
IIf(Day([日期2])-Day([日期1])<0,Int((Year([日期2])*12 + Month([日期2])-(Year([日期1])*12 + Month([日期1]))-1)/12)
& "年" & (Year([日期2])*12 + Month([日期2])-(Year([日期1])*12 + Month([日期1]))-1) mod 12
& "个月" & [日期2]-DateSerial(Year([日期2]),Month([日期2])-1,Day([日期1])) & "天",
Int((Year([日期2])*12 + Month([日期2])-(Year([日期1])*12 + Month([日期1])))/12)
& "年" & (Year([日期2])*12 + Month([日期2])-(Year([日期1])*12 + Month([日期1]))) mod 12
& "个月" & (Day([日期2])-Day([日期1])) & "天")
可将[日期2]或[日期1]换成Date() 即是今日;用来计算工龄或倒计时;
此为个人之见解,用以抛砖引玉!
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)