[求助]日期计算问题，又有新的问题高手请解答，谢谢

hi-wzj

直接用datediff函数即可。

zaigang_zhou

我顶

focke

我是这样改的的，高手看有没有毛病，感谢wu8313 huanghai 以及大家的帮助Option Compare DatabaseFunction months_count(allMonths As Integer, Y As Integer, M As Integer) As String

   ' Dim allMonths As Integer   '总共多少个月

   ' Dim Y As Integer, M As Integer

   ' allMonths = DateDiff("m", #5/23/1981#, #3/5/2005#)    Y = Int(allMonths / 12) '在查询中调用的时候,根据字段名称作了相应更改 y=[时间差]/12    M = allMonths Mod 12 '在查询中调用的时候,根据字段名称作了相应更改 m=[时间差] mod 12    If M > 0 And Y <> 0 Then

        

        Debug.Print Y & "年零" & M & "个月"

        months_count = Y & "年零" & M & "个月"

    Else        Debug.Print Y & "年整"

        months_count = Y & "年整"    End If

   

    If Y = 0 Then

   

        Debug.Print M & "个月"

        months_count = M & "个月"

        

    End If

End Function

zyz218

直接写到窗体中或报表不是更好吗，干吗写到模块中呢

focke

可以直接写到查询里吗

focke

问题；象 5年，8年3个月，这样的数据能否设成日期型的数据。如，1987年7月3日 减去 8年3个月 结果是 1979年4个月3日这样的计算如何设计，请高手解答。问题：象 个人简历，自我介绍，的字段应设计成什么数据类型，XXXX年-XXXX年   XXX单位    XXXX职务XXXX年-XXXX年   XXX单位    XXXX职务这样的数据如何输入 个人简历字段里，显示时能全部显示吗

GORYUNGBBS

ACCESS内置函数就可以计算的.如下:间隔: IIf((Month([n2])-Month([n1]))<0,Year([n2])-Year([n1])-1,Year([n2])-Year([n1])) & "年" & IIf((Month([n2])-Month([n1]))<0,Month([n2])-Month([n1])+12,Month([n2])-Month([n1])) & "月"

dengjian

似乎不用这么复杂吧，我记得曾用iif函数计算某人到某年某月为止的年龄，不过忘了具体公式，思路大体是这样的：通过计算现在到1900年的天数减去出生年月到1900年的天数，然后再转化为年月数，既简单又方便。楼主的问题应该也可这样求解。

静儿

大家要善于使用日期函数：dateadd;datediff;datepart 具体看帮助，有详细的解释和帮助。

LucasLynn

不需要这么复杂，用DateDiff函数即可，参数用月，然后自己整除一下12得年，MOD 12得月。