指定の日付から何年何か月何日経過したか表示するには以下の様にします。
Sub Sample71()
’2010/1/1から何年何か月何日経過したか表示します
MsgBox DateDiff("yyyy", "2010/1/1", Date) & "年" _
& DateDiff("m", "2010/1/1", Date) Mod 12 & "ヵ月" _
& DateDiff("d", DateSerial(Year(Date), Month("2010/1/1"), Day("2010/1/1")), Date) & "日"
End Sub