Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
а вот мне попалось - добрый человек делал - может добавить.....
Входная короткая дата, а на выходе сколько прошло времени.

Function MyDateDiff(ByVal D1 As Date, D2 As Date) As String Dim Y As Integer, M As Integer, D As Integer Y = DateDiff("YYYY", D1, D2) If DateAdd("YYYY", Y, D1) > D2 Then Y = Y - 1 D1 = DateAdd("YYYY", Y, D1) M = DateDiff("M", D1, D2) If DateAdd("M", M, D1) > D2 Then M = M - 1 D1 = DateAdd("M", M, D1) D = DateDiff("D", D1, D2) MyDateDiff = Y & " лет, " & M & " месяцев, " & D & " дней" End Function