一、符合如下的条件 1岁以上写岁 1月以上写月, 不足月写天。 二、宏代码 Function GetDateDiff(StartD, EndD) Dim y%, m%, d% If StartD EndD Or Not IsDate(StartD) Or Not IsDate(EndD) Then GetDateDiff = "数据有误" y = DateDiff("yyyy", StartD, EndD) If DateSerial(Year(EndD), Month(StartD), Day(StartD)) EndD Then y = y - 1 If y = 1 Then GoTo 100 m = 12 ...
[ 查看全文 ]