Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как вывести дату задом наперед? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как вывести дату задом наперед?
Как вывести дату задом наперед?
Мисрикс Дата: Суббота, 23.03.2013, 13:54 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 20% ±

Суть вопроса такова: Нужно разработать макрос, автоматически определяющий сегодняшнюю дату, например: 27.04.2013 и выводящий ее в определенной ячейке в таком виде: 130427. Жду ваших идей друзья =)
smile
 
Ответить
СообщениеСуть вопроса такова: Нужно разработать макрос, автоматически определяющий сегодняшнюю дату, например: 27.04.2013 и выводящий ее в определенной ячейке в таком виде: 130427. Жду ваших идей друзья =)
smile
Автор - Мисрикс
Дата добавления - 23.03.2013 в 13:54
AlexM Дата: Суббота, 23.03.2013, 14:03 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4505
Репутация: 1127 ±
Замечаний: 0% ±

Excel 2003
В А1 сегодняшняя дата
Код
=СЕГОДНЯ()

в В1 формула
Код
=ТЕКСТ(A1;"ГГММДД")


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Суббота, 23.03.2013, 14:05
 
Ответить
СообщениеВ А1 сегодняшняя дата
Код
=СЕГОДНЯ()

в В1 формула
Код
=ТЕКСТ(A1;"ГГММДД")
Автор - AlexM
Дата добавления - 23.03.2013 в 14:03
Pelena Дата: Суббота, 23.03.2013, 14:09 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Или просто задать пользовательский формат ГГММДД
К сообщению приложен файл: 3271756.jpg (61.9 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеИли просто задать пользовательский формат ГГММДД
Автор - Pelena
Дата добавления - 23.03.2013 в 14:09
Michael_S Дата: Суббота, 23.03.2013, 14:13 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
[vba]
Код
Etad = StrReverse(Replace(Date, ".", ""))
[/vba]или
[vba]
Код
Etad = StrReverse(Format(Date, "yymmdd"))
[/vba]


Сообщение отредактировал Michael_S - Суббота, 23.03.2013, 14:17
 
Ответить
Сообщение[vba]
Код
Etad = StrReverse(Replace(Date, ".", ""))
[/vba]или
[vba]
Код
Etad = StrReverse(Format(Date, "yymmdd"))
[/vba]
Автор - Michael_S
Дата добавления - 23.03.2013 в 14:13
Мисрикс Дата: Суббота, 23.03.2013, 14:45 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 20% ±

Michael_S,

Если так, то белиберда получается какая-то...=/

[vba]
Код
Sub dd()
Dim etad As Date
etad = StrReverse(Format(Date, "yymmdd"))
End Sub
[/vba]
 
Ответить
СообщениеMichael_S,

Если так, то белиберда получается какая-то...=/

[vba]
Код
Sub dd()
Dim etad As Date
etad = StrReverse(Format(Date, "yymmdd"))
End Sub
[/vba]
Автор - Мисрикс
Дата добавления - 23.03.2013 в 14:45
Michael_S Дата: Суббота, 23.03.2013, 14:55 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
Цитата
Dim etad As String
или просто[vba]
Код
Dim etad
[/vba] и если нужно число, а не текст - [vba]
Код
etad = Val(StrReverse(Format(Date, "yymmdd")))
[/vba]


Сообщение отредактировал Michael_S - Суббота, 23.03.2013, 14:58
 
Ответить
Сообщение
Цитата
Dim etad As String
или просто[vba]
Код
Dim etad
[/vba] и если нужно число, а не текст - [vba]
Код
etad = Val(StrReverse(Format(Date, "yymmdd")))
[/vba]
Автор - Michael_S
Дата добавления - 23.03.2013 в 14:55
Мисрикс Дата: Суббота, 23.03.2013, 15:08 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 20% ±

Спасибо smile
 
Ответить
СообщениеСпасибо smile
Автор - Мисрикс
Дата добавления - 23.03.2013 в 15:08
ikki Дата: Суббота, 23.03.2013, 16:05 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
ну это у вас "немножко другое" получится biggrin
вместо требуемых
Цитата (Мисрикс)
130427

будет
Код
314072


хотя и похоже... wink

если макросом, то StrReverse не нужен
[vba]
Код
etad = Format(Date, "yymmdd")
[/vba]

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Сообщение отредактировал ikki - Суббота, 23.03.2013, 16:06
 
Ответить
Сообщениену это у вас "немножко другое" получится biggrin
вместо требуемых
Цитата (Мисрикс)
130427

будет
Код
314072


хотя и похоже... wink

если макросом, то StrReverse не нужен
[vba]
Код
etad = Format(Date, "yymmdd")
[/vba]
Автор - ikki
Дата добавления - 23.03.2013 в 16:05
Michael_S Дата: Суббота, 23.03.2013, 16:57 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
Цитата (ikki)
ну это у вас "немножко другое" получится вместо требуемых Цитата (Мисрикс писал(а)):130427 будет 314072

Вообще-то я думал, что так и надо. Иначе вопрос из ряда "для дет-сада". biggrin
 
Ответить
Сообщение
Цитата (ikki)
ну это у вас "немножко другое" получится вместо требуемых Цитата (Мисрикс писал(а)):130427 будет 314072

Вообще-то я думал, что так и надо. Иначе вопрос из ряда "для дет-сада". biggrin
Автор - Michael_S
Дата добавления - 23.03.2013 в 16:57
jakim Дата: Воскресенье, 24.03.2013, 10:25 | Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 1200
Репутация: 313 ±
Замечаний: 0% ±

Excel 2010
Может быть так?
К сообщению приложен файл: Book1.xlsx (9.0 Kb)
 
Ответить
СообщениеМожет быть так?
Автор - jakim
Дата добавления - 24.03.2013 в 10:25
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как вывести дату задом наперед?
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!