[vba] Точная разница между датами в месяцах и днях

Rashad Abdullayev, 291 просмотр

DateDiff не для таких задач написан, например вот то выражение DateDiff("m", "30/06/2011", "24/06/2012") вернет 12
а должно вернуть 11, т.к. это неполные 12 мес.
То есть в идеале должно быть так: 24.06.2012 - 30.06.2011 = 11 мес. 25 дней (кажется так, т.к. май до 31-го)

Задача в том, чтоб получить разницу в мес. и днях, то есть ответ должен быть в результате таким: 11 мес. 25 дней

Ответы:

Алексей Матевосов

На VBA не просто получается.
Зато стандартными функциями Экселя можно просто и точно.
В А1 начальная дата, в В1 конечная, в С1 формула
=РАЗНДАТ(A1;B1;"ym") & " мес. " & РАЗНДАТ(A1;B1;"md") & " дн."
Эту формулу можно "запихнуть" в код VBA
Sub iDate_Diff()
Range("C1") = Evaluate("DATEDIF(A1,B1,""ym"")") & " мес. " & Evaluate("DATEDIF(A1,B1,""md"")") & " дн."
End Sub

12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.