Преобразование даты

[man_of_virtue]

Доброго времени суток, уважаемые! Пожалуйста, направьте меня в нужное русло. Суть вот в чем: имеются два DateTimePicker-а. По задумке пользователь вводит (выбирает) с их помощью две даты (условно: "начало" и "конец". Дальше, по нажатию кнопки, даты вычитаются (с этим проблем нет) и пользователю (а вот дальше пошли проблемы) должна возвращаться информация типа: "Вы прожили на свете dd дней, mm месяцев, yyyy лет". Но как бы я не бился - возвращаются только либо количество дней, либо лет, либо кварталов (ну и т.д.) В связи с этим вопрос, есть-ли какой-либо метод, который позволял бы преобразовывать полученное количество дней в приведенный выше желаемый формат с учетом високосности и прочей календарной приблуды (тридцать дней или тридцать один, к примеру...)? Заранее спасибо.

[Volodshan]

Сообщение от man_of_virtue

... должна возвращаться информация типа: "Вы прожили на свете dd дней, mm месяцев, yyyy лет". Но как бы я не бился - возвращаются только либо количество дней, либо лет, либо кварталов (ну и т.д.)...

Покажите своё "битьё" - может подправим.

[IgorGO]

format(dt, "Вы прожили на свете D дней, M месяцев, YY лет")
где dt - дата
только сообщение типа:
Вы прожили на свете 3 дней, 4 месяцев, 42 лет - будет выглядеть больше комично, чем по-русски.

[MCH]

Function dney(dt1 As Date, dt2 As Date) As String
Dim dn&, mes&, lt&
If dt2 < dt1 Then Exit Function
dn = WorksheetFunction.Days360(dt1, dt2) Mod 30
mes = WorksheetFunction.Days360(dt1, dt2) \ 30 Mod 12
lt = WorksheetFunction.Days360(dt1, dt2) \ 360
dney = dn & IIf(dn \ 10 Mod 10 = 1 Or (dn + 9) Mod 10 > 3, " дней", IIf(dn Mod 10 = 1, " день", " дня")) & ", " & _
    mes & " месяц" & IIf(mes > 4 Or mes = 0, "ев", IIf(mes = 1, "", "а")) & ", " & _
    lt & IIf(lt \ 10 Mod 10 = 1 Or (lt + 9) Mod 10 > 3, " лет", IIf(lt Mod 10 = 1, " год", " года"))
End Function

[Serge 007]

Сообщение от man_of_virtue

...должна возвращаться информация типа: "Вы прожили на свете dd дней, mm месяцев, yyyy лет"...

http://www.excelworld.ru/index/datedif/0-44

[MCH]

Сообщение от Serge 007

http://www.excelworld.ru/index/datedif/0-44

Сергей, формулу из указаной ссылки можно сократить более чем в 2 раза:

=РАЗНДАТ(B1;A1;"y")&" "&ПРОСМОТР(ОСТАТ(РАЗНДАТ(B1;A1;"y");10)+(ОСТАТ(ЦЕЛОЕ(РАЗНДАТ(B1;A1;"y")/10);10)=1)*5;{0;1;2;5};{"лет";"год";"года";"лет"})&", "&РАЗНДАТ(B1;A1;"ym")&" месяц"&ПРОСМОТР(РАЗНДАТ(B1;A1;"ym");{0;1;2;5};{"ев";"";"а";"ев"})&", "&РАЗНДАТ(B1;A1;"md")&" д"&ПРОСМОТР(ОСТАТ(РАЗНДАТ(B1;A1;"md");10)+(ОСТАТ(ЦЕЛОЕ(РАЗНДАТ(B1;A1;"md")/10);10)=1)*5;{0;1;2;5};{"ней";"ень";"ня";"ней"})