求救：请各位帮忙在EXCEL里写一个宏，计算一个单元格距当前日期的年、月、日。在线等待……

Question

本人多年不用VB，忘了语法。
举例如下：
getdate(2002-5-2,2003-7-15)
=1,2,13
急急急！！！
谢谢谢！！！

Answer 1

求年月日
Sub Macro1()
   Range("c3").Value = Year(Range("B3").Value) - Year(Date) '年
   Range("c3").Value = Range("c3").Value & "," & Month(Range("B3").Value) - Month(Date) '月
   Range("c3").Value = Range("c3").Value & "," & day(Range("B3").Value) - day(Date) '日
   End Sub

Answer 2

你给B3单元格输入2002-5-2，然后运行，C3单元格应该是“1,2,14”。Sub Macro1()
   Range("c3").Value = Year(Date) - Year(Range("B3").Value) '年
   Range("c3").Value = Range("c3").Value & "," & Month(Date) - Month(Range("B3").Value) '月
   Range("c3").Value = Range("c3").Value & "," & Day(Date) - Day(Range("B3").Value) '日
End Sub

Answer 3

有一个时间是段日期型的,改成这样
Sub Macro1()
   Range("c3").Value = format(Year(Date),"yyyy") - format(Year(Range("B3").Value),"yyyy") '年
   Range("c3").Value = Range("c3").Value & "," & Month(Date) - Month(Range("B3").Value) '月
   Range("c3").Value = Range("c3").Value & "," & Day(Date) - Day(Range("B3").Value) '日
End Sub