powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сравнить даты
5 сообщений из 5, страница 1 из 1
Сравнить даты
    #39946699
Guest1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добрый день,
непонятный формат даты - не поддаётся сравнению,
не помогают РАЗНДАТ и никакие способы.
Пример во вложении.
Просьба помочь.
...
Рейтинг: 0 / 0
Сравнить даты
    #39946710
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В ячейке B2 в начале 4 пробела. См. .Formula и .Value у Range("адрес")...
...
Рейтинг: 0 / 0
Сравнить даты
    #39946862
Guest1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Akina,

в ячейке B2 формат дата, но excel в результатах вычисления считает её символьной.
Как можно это исправить?

Если можно, сообщите пожалуйста вариант с использованием формулы без vba
Спасибо.
...
Рейтинг: 0 / 0
Сравнить даты
    #39946884
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Guest1,

Код: plaintext
=A2-ПЕЧСИМВ(ПОДСТАВИТЬ(B2;" ";""))
...
Рейтинг: 0 / 0
Сравнить даты
    #39947055
Guest1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
The_Prist,
благодарю Вас за помощь.

Вот в таком виде работает без ошибок:

Сравнение:
=A2>ДАТАЗНАЧ(ПЕЧСИМВ(ПОДСТАВИТЬ(B2;" ";"")))

Разность дат, на выходе количество дней:
=РАЗНДАТ(ПЕЧСИМВ(ПОДСТАВИТЬ(B2;" ";""));ТЕКСТ(A2;"ДД")&"."&ТЕКСТ(A2;"ММ")&"."&ТЕКСТ(A2;"ГГГГ");"D")

Долго не отвечала,- не могла получить правильный результат по второй формуле РАЗНДАТ,
не ожидала, что в ней всё русскими буквами, а последний параметр "D" - латиница.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сравнить даты
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]