计算年月日日期

xyh2732

请问如何可以在一个窗体上自动计算出另一个窗体的年月日，比如日期为2009年9月29日就自动计算出结果为1年0月1日，还有如果小于3个月或大于5年的都整行用不同颜色填充，

xinrenq

给你做个查询函数计算法，其他的你自已去相想吧

SELECT 表1.*, IIf(Format([入职日期],"yyyy-mm-dd")>=Format(Date(),"yyyy-mm-dd"),Year([入职日期])-Year(Date())-IIf(Format([入职日期],"mm-dd")<Format(Date(),"mm-dd"),1,0) & "年" & Month([入职日期])-Month(Date())+IIf(Format([入职日期],"mm-dd")<Format(Date(),"mm-dd"),12,0) & "月" & IIf(Day([入职日期])>=Day(Date()),Day([入职日期])-Day(Date()),DateDiff("d",DateSerial(Year(DateSerial(Year([入职日期]),Month([入职日期]),1)-1),Month(DateSerial(Year([入职日期]),Month([入职日期]),1)-1),Day(Date())),[入职日期])) & "日",Year(Date())-Year([入职日期])-IIf(Format(Date(),"mm-dd")<Format([入职日期],"mm-dd"),1,0) & "年" & Month(Date())-Month([入职日期])+IIf(Format(Date(),"mm-dd")<Format([入职日期],"mm-dd"),12,0) & "月" & IIf(Day(Date())>=Day([入职日期]),Day(Date())-Day([入职日期]),DateDiff("d",DateSerial(Year(DateSerial(Year(Date()),Month(Date()),1)-1),Month(DateSerial(Year(Date()),Month(Date()),1)-1),Day([入职日期])),Date())) & "日") AS 在职时间
FROM 表1;

xyh2732

回复 xinrenq 的帖子

你好，我看不太懂可否弄个附件参考一下
   

todaynew

给你做个查询函数计算法，其他的你自已去相想吧

SELECT 表1.*, IIf(Format([入职日期],"yyyy-mm-dd")>=F ...
xinrenq 发表于 2010-9-28 14:28

呵呵，看的眼睛快骨折了，也忒复杂了。你看看是否可以用这样的方法简化一下：
那可以用DateDiff函数算出两个日期间的总天数比如说是n，然后int(n/365)得到多少年。用int((n mod 365)/30)得到零头月，用(n mod 365) mod 30得到零头日。

STD

回复 todaynew 的帖子

不错，简洁多了