powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как преобразовать дату
11 сообщений из 11, страница 1 из 1
как преобразовать дату
    #36552542
Piter_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите, как убрать точки в дате. Функция Data возвращает например 01.04.2010
Как убрать программно точки и получить 01042010. Очень нужно подскажите...пож-та
...
Рейтинг: 0 / 0
как преобразовать дату
    #36552576
Фотография vikttur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
=ПОДСТАВИТЬ(ТЕКСТ(A1;"дд.ММ.ГГГГ");".";"")
...
Рейтинг: 0 / 0
как преобразовать дату
    #36552581
Фотография vikttur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Или без ссылки:
=ПОДСТАВИТЬ(ТЕКСТ(ДАТА(2010;4;1);"дд.ММ.ГГГГ");".";"")
...
Рейтинг: 0 / 0
как преобразовать дату
    #36552662
DV68
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Piter_,

Если нужно только визуально, то пользовательский формат: ДДММГГГГ
...
Рейтинг: 0 / 0
как преобразовать дату
    #36552876
Piter_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо, в пользовательском работает, а как если надо в процедуре

FData = Calendar1.Value
Cells(2, 8).Value = FData '-- выводит в формате дд.мм.гг с точками
...
Рейтинг: 0 / 0
как преобразовать дату
    #36553415
Dophin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
точно так же

[f7] = Replace(fdata, ".", "")
...
Рейтинг: 0 / 0
как преобразовать дату
    #36553423
Dophin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
или также как формат

[f7] = Format(fdata, "DDMMYYYY")
...
Рейтинг: 0 / 0
как преобразовать дату
    #36553529
Piter_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
спасибо, работает. А как получить первый 0 если число меньше 10
03032010 вместо 3032010
или только программно прицеплять спереди лишний 0 если меньше 10.
...
Рейтинг: 0 / 0
как преобразовать дату
    #36553553
Dophin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Piter_,
тут важно определится что у вас будет в ячейке:
если число, то числа с нулем впереди быть не может, только формат ячейки
[f7] = Format(fdata, "DDMMYYYY")
[f7].NumberFormat = "00000000"


если можно текст, то
[f7] = "'" & Format(fdata, "DDMMYYYY")
...
Рейтинг: 0 / 0
как преобразовать дату
    #36553600
Piter_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
спасибо, Dophin ! нужен текст, чтобы потом формировать название файла.
...
Рейтинг: 0 / 0
как преобразовать дату
    #36554149
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Piter_, если текст, то прибавляем спереди столько нулей, сколько максимально надо перед 1, затем Right()
Код: plaintext
temp =Right("0000" & FData,  5 )
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как преобразовать дату
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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