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

[caoyq]

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


急急急！！！
谢谢谢！！！

[5iask]

求年月日
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

[caoyq]

好象不对，得出来的是：1899-12-29,-2,-13
为什么呀？

[5iask]

我在我的机器上是通过了，不明白为何不对.

[thelostland]

有一个时间是段日期型的,改成这样
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

[5iask]

你给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

[caoyq]

对不起，不行呀？
得到结果是“1899-12-31,2,14”。
另外，如何根据整个B列的值，求的整个C列的值？
希望不吝赐教！谢谢！！