Дата создания excel в ячейке

Получить и вставить время создания и время последнего изменения в ячейки

В этой статье будут рассказываться о способах получения времени создания и времени последнего изменения текущей информации книги, а также вставки времени создания и времени последнего изменения текущей информации книги в ячейки Excel.

Получите время создания и время последнего изменения в Excel с помощью команды Info

Получите время создания и время последнего изменения в Excel с помощью функции дополнительных свойств

Вставьте созданное время и время последнего изменения в ячейки Excel с кодом VBA

Вставьте время создания и время последнего изменения в ячейки/верхний/нижний колонтитул с помощью Kutools for Excel хорошая идея3


стрелка синий правый пузырь Получите время создания и время последнего изменения в Excel с помощью команды Info

Мы можем узнать точное время создания и время последнего изменения текущей книги в представлении за кулисами Microsoft Excel 2010/2013.

Нажмите Файл > Инфо, а в правой части представления за кулисами отображается Связанные даты Информация. Под Связанные даты title, в нем указано время последнего изменения, время создания и время последней печати. См. Следующий снимок экрана:

Примечание: Этот способ доступен только в Microsoft Excel 2010/2013. Это недопустимо в Excel 2007.


стрелка синий правый пузырьПолучите время создания и время последнего изменения в Excel с помощью функции дополнительных свойств

Фактически, мы можем получить как время создания, так и время последнего изменения текущей книги в диалоговом окне «Свойства документа».
Шаг 1: Открой Дополнительные свойства диалоговое окно:

В Excel 2007 щелкните значок Офисы кнопка> Подготовить > ПредложенияИ Свойства документа панель будет отображаться под панелью инструментов, щелкните Свойства документа > Дополнительные свойства, смотрите скриншоты:

В Excel 2010/2013 щелкните значок Файл > Инфо > Предложения > Дополнительные свойства.

документ-вставка-измененное время-4-4

Шаг 2: В Дополнительные свойства В диалоговом окне вы увидите время создания и время последнего изменения на вкладке Статистика. См. Следующий снимок экрана:

документ-вставка-измененное время-4-4


стрелка синий правый пузырь Вставьте созданное время и время последнего изменения в ячейки Excel с кодом VBA

Следующие макросы VBA помогут вам напрямую вставить в ячейки время создания и время последнего изменения текущей информации книги.

Вставьте время создания и время последнего изменения в Excel

Шаг 1: Удерживайте ALT + F11 ключи, и он открывает окно Microsoft Visual Basic для приложений.

Шаг 2: Нажмите Вставить >> Модулии вставьте следующий макрос в окно модуля.

Код VBA: вставьте время создания и время последнего изменения в Excel

Sub Workbook_Open()
Range("A1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date")
Range("A2").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "short date")
End Sub

Шаг 3:Нажмите F5 ключ для запуска этого макроса. И тогда дата создания и дата последнего изменения будут вставлены в ячейку A1 и ячейку A2 отдельно.

Внимание: вы можете изменить ячейку назначения в VB в соответствии с вашими потребностями.

Вставить время последнего изменения книги в Excel

Шаг 1: Удерживайте ALT + F11 ключи, и он открывает окно Microsoft Visual Basic для приложений.

Шаг 2: Нажмите Вставить >> Модулии вставьте следующий макрос в окно модуля.

Public Function ModDate()
ModDate = Format(FileDateTime(ThisWorkbook.FullName), "m/d/yy h:n ampm")
End Function

Шаг 3: Затем сохраните и закройте этот код и вернитесь на рабочий лист, в пустой ячейке введите формулу = ModDate (), и нажмите Enter ключ. Затем он вставляет в ячейку время последнего изменения.

-2

Вставить созданное время книги в Excel

Шаг 1: Удерживайте ALT + F11 ключи, и он открывает окно Microsoft Visual Basic для приложений.

Шаг 2: Нажмите Вставить >> Модулии вставьте следующий макрос в окно модуля.

Function CreateDate() As Date
CreateDate = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End Function

Шаг 3: Сохраните и закройте этот код, вернитесь на лист, в пустой ячейке введите формулу = CreateDate (), и нажмите Enter key. и созданная дата будет вставлена ​​в ячейку, как показано на следующих снимках экрана:

-2

Примечание: Если ваша ячейка не является форматом даты, она может отображать странное число. Просто отформатируйте эту ячейку как Время формат, он будет отображаться как обычная дата.


стрелка синий правый пузырь Вставьте время создания и время последнего изменения в ячейки/верхний/нижний колонтитул с помощью Kutools for Excel

Могу я представить вам удобный инструмент —Kutools for Excel какие из более чем 300 полезных функций могут повысить эффективность вашей работы? С этими Вставить информацию о книге Вы можете быстро вставить путь к книге, имя книги / рабочего листа, имя пользователя или время создания и время последнего изменения в ячейки, верхний или нижний колонтитул.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Нажмите Кутулс Плюс > Workbook > Вставить информацию о книге. Смотрите скриншот:
doc последнее изменение name2

2. Затем в Вставить информацию о книге диалоговом окне, проверьте информацию, которую вы хотите вставить из раздела информации, затем перейдите, чтобы указать место, в которое вы хотите вставить, вы можете выбрать ячейки, нижний колонтитул (левый нижний колонтитул, центральный нижний колонтитул, правый нижний колонтитул) или заголовок (левый верхний колонтитул, центральный верхний колонтитул, правый заголовок). Смотрите скриншот:
вставка документа создана, время изменения 1

3. Нажмите Ok, и проверяемая вами информация была вставлена ​​в указанное вами место.

Наконечник. Если вы хотите получить бесплатную пробную версию функции «Вставить информацию о книге», пожалуйста, перейдите к бесплатной загрузке Kutools for Excel сначала, а затем перейдите к применению операции в соответствии с вышеуказанными шагами.

стрелка синий правый пузырь Вставить информацию о книге


Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

вкладка kte 201905


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

офисный дно

 

maragva

Пользователь

Сообщений: 179
Регистрация: 01.01.1970

Текущая дата задается функцией «=СЕГОДНЯ()». Это неудобно — сохранив документ и потом открыв его через пару дней я не увижу даты создания документа, будет стоять текущая дата.  
Конечно, можно, проставить дату посредством «ctrl + 4» (в 2007), но по ряду причин, это неудобно.  
Вопрос, а как еще можно в документе поставить дату его создания и при необходимости ее обновить?

 

Можно макросом сохранять в удобную для Вас ячейку.  

  Например, в ячейку «A1».  
————————  
[A1].Value = Format(Now, «dd.mm.yyyy»)
————————

 

maragva

Пользователь

Сообщений: 179
Регистрация: 01.01.1970

Окажите любезность, подскажите, это прям так и вставить в лист? Или это надо в модуль?

 

Последнее :)  

  ————————  
Sub ДатаCозданияДокумента()  
[A1].Value = Format(Now, «dd.mm.yyyy»)
End Sub  
————————

 

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

Небольшое уточнение: таким способом мы получим текст. А если в ячейке нужна именно дата, то следует попробовать так:  
Sub ДатаCозданияДокумента()  
[A1].Value = Now
[A1].NumberFormat = «dd.mm.yyyy»
End Sub

 

maragva

Пользователь

Сообщений: 179
Регистрация: 01.01.1970

Я вставил код в модуль, но ничего не происходит. Мне кажется, что еще надо и лист указывать, потому как в книге несколько листов. А как лист прописать?

 

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

{quote}{login=maragva}{date=31.01.2011 02:03}{thema=}{post}Я вставил код в модуль, но ничего не происходит. Мне кажется, что еще надо и лист указывать, потому как в книге несколько листов. А как лист прописать?{/post}{/quote}  
А ничего само собой и не произойдёт — нужно выполнить (запустить) этот макрос :-)

 

maragva

Пользователь

Сообщений: 179
Регистрация: 01.01.1970

И как его запускать? Поставить кнопку? гм… кнопка — неудобно. Я, честно говоря, рассчитывал, что это будет проще — открыл шаблон документа и дата уже стоит.  
Так возможно сделать?

 

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

Можно вызывать на событие открытие книги, на активацию листа…

 

maragva

Пользователь

Сообщений: 179
Регистрация: 01.01.1970

Ага, я тоже так думаю. Тока сформулировать не могу по причине незнания vba.    
Вы можете помочь?

 

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

В модуль книги:  
Private Sub Workbook_Open()  
With Sheets(«Лист1»)  
.Cells(1, 1).Value = Now  
.Cells(1, 1).NumberFormat = «dd.mm.yyyy»  
End With  
End Sub

 

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

А зачем это вообще нужно? Меню-Файл-Свойства — вкладка статистика, дата создания.

Я сам — дурнее всякого примера! …

 

maragva

Пользователь

Сообщений: 179
Регистрация: 01.01.1970

{quote}{login=Юрий М}{date=31.01.2011 02:49}{thema=}{post}В модуль книги:  
Private Sub Workbook_Open()  
With Sheets(«Лист1»)  
Cells(1, 1).Value = Now  
Cells(1, 1).NumberFormat = «dd.mm.yyyy»  
End With  
End Sub{/post}{/quote}  

  Не показывает дату. Лист переименовал на свой.  
Cells(1, 1) — я правильно понимаю столбец, ячейка?

 

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

Cells(1, 1) — это аналог Range(«A1») <BR>Книгу нужно сохранить, закрыть, и снова открыть. В указанной ячейке появится текущая дата в указанном формате. Также можете заглянуть в раздел «Приемы»: 

http://www.planetaexcel.ru/tip.php?aid=28

.

 

maragva

Пользователь

Сообщений: 179
Регистрация: 01.01.1970

Ах нет, я ошибся, работает.  
Спасибо большое

 

KuklP

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

{quote}{login=Юрий М}{date=31.01.2011 02:49}{thema=}{post}В модуль книги:  
Private Sub Workbook_Open()  
With Sheets(«Лист1»)  
Cells(1, 1).Value = Now  
Cells(1, 1).NumberFormat = «dd.mm.yyyy»  
End With  
End Sub{/post}{/quote}Юр, а ничего, что эта штука всегда будет втыкать дату и время последнего открытия? Вроде вопрос: «Дата создания документа».

Я сам — дурнее всякого примера! …

 

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

А я знаю? Может так нужно :-) Можно ведь сделать проверку дополнительную — если ячейка пустая, то заносим дату…  
В конце концов я дал ссылку и на другой вариант.

 

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

Есть ещё такое:  
Sheets(«Лист1»).Range(«A2»)= ActiveWorkbook.BuiltinDocumentProperties(«Creation Date»)

 

maragva

Пользователь

Сообщений: 179
Регистрация: 01.01.1970

Получается так, что практичнее оказывается кнопка. Пробовал и так и этак.    
А если автоматом ставить дату, то надо по условию, скажем, если в листе таком-то такая-то ячейка больше нуля, то дата ставится, иначе — нет. Правда не знаю, как сформулировать программно

 

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

Private Sub Workbook_Open()  
With Sheets(«Лист1»)  
if .cells(1,1) <> «» then .Cells(1, 1).Value = Now  
.Cells(1, 1).NumberFormat = «dd.mm.yyyy»  
End With  
End Sub  
Проверяется: если в ячейке ничего нет — заносим туда текущую дату.    
Также см. моё предыдущее сообщение.  
В «Приемы» ходили?

 

maragva

Пользователь

Сообщений: 179
Регистрация: 01.01.1970

Я вообще, прежде, чем задать вопрос, пытаюсь сам решить свою проблему. Был я в приемах, и браузер юзал…  

  Чет не выходит у меня… Вы извините, я в этом бестолковый  

  If .Cells(I128) <> «» Then .Cells(H3).Value = Now  
.Cells(H3).NumberFormat = «dd.mm.yyyy»  

  Я же правильно сделал?

 

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

Этот путь не совсем верный: Вам ведь нужно именно дату СОЗДАНИЯ документа. А при таком подходе в ячейку будет занесена ТЕКУЩАЯ дата (если ячейка пустая).  
Поэтому лучше использовать варианты:  
1. Использовать =ActiveWorkbook.BuiltinDocumentProperties(«Creation Date») — будет отображаться именно дата создания документа.  
2. Который по ссылке в «Приемах» — когда вводятся данные в ячейку, а в соседней (или любой другой) появляется ТЕКУЩАЯ дата.

 

maragva

Пользователь

Сообщений: 179
Регистрация: 01.01.1970

Ни хрена у меня не получается. Вконец запутался. Поэтому, оставлю-ка я дату на кнопке. Спасибо за участие

 

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

#24

31.01.2011 16:50:37

Private Sub Workbook_Open()  
With Sheets(«Лист1»)  
.Cells(1, 1)=ActiveWorkbook.BuiltinDocumentProperties(«Creation Date»)    
.Cells(1, 1).NumberFormat = «dd.mm.yyyy»  
End With

Excel для Microsoft 365 Excel для Microsoft 365 для Mac Excel для Интернета Excel 2021 Excel 2021 для Mac Excel 2019 Excel 2019 для Mac Excel 2016 Excel 2016 для Mac Excel 2013 Excel 2010 Excel 2007 Excel для Mac 2011 Excel Starter 2010 Еще…Меньше

С помощью функции ДАТА в Excel можно объединить три отдельных значения в дату.

Функция ДАТА возвращает порядковый номер определенной даты.

Синтаксис: ДАТА(год;месяц;день)

Аргументы функции ДАТА описаны ниже.

  • Год    — обязательный аргумент. Значение аргумента год может содержать от одной до четырех цифр. Excel интерпретирует аргумент год в соответствии с используемой системой дат, используемой на вашем компьютере. По умолчанию в Microsoft Excel для Windows используется система дат 1900, то есть первой датой считается 1 января 1900 г.

    Совет: Во избежание непредвиденных результатов используйте в качестве значения аргумента год четыре цифры. Например, значение «07» может интерпретироваться как «1907» или «2007». Четырехзначное обозначение года предотвращает возникновение путаницы.

    • Если аргумент год находится в диапазоне от 0 (нуль) до 1899 (включительно), Excel для вычисления года прибавляет это значение к числу 1900. Например, функция ДАТА(108;1;2) возвращает 2 января 2008 (1900+108) года.

    • Если аргумент год находится в диапазоне от 1900 до 9999 (включительно), Excel использует это значение как год. Например, функция ДАТА(2008;1;2) возвращает 2 января 2008 года.

    • Если значение аргумента год меньше 0 или больше 9999, Excel возвращает значение ошибки #ЧИСЛО!.

  • Месяц    — обязательный аргумент. Положительное или отрицательное целое число в диапазоне от 1 (январь) до 12 (декабрь), представляющее месяц года.

    • Если значение аргумента месяц больше 12, аргумент месяц добавляет число месяцев к первому месяцу указанного года. Например, функция ДАТА(2008;14;2) возвращает число, соответствующее 2 февраля 2009 года.

    • Если значение аргумента месяц меньше 1, аргумент месяц вычитает значение этого числа месяцев, увеличенное на 1, из первого месяца указанного года. Например, функция ДАТА(2008;-3;2) возвращает число, соответствующее 2 сентября 2007 года.

  • День    — обязательный аргумент. Положительное или отрицательное целое число в диапазоне от 1 до 31, представляющее день месяца.

    • Если значение аргумента день больше числа дней в указанном месяце, аргумент день добавляет это число дней к первому дню месяца. Например, функция ДАТА(2008;1;35) возвращает число, соответствующее 4 февраля 2008 года.

    • Если значение аргумента день меньше 1, аргумент день вычитает значение этого числа дней, увеличенное на 1, из первого дня указанного месяца. Например, функция ДАТА(2008;1;-15) возвращает число, соответствующее 16 декабря 2007 года.

Примечание: В Excel даты хранятся в виде порядковых номеров, что позволяет использовать их в вычислениях. Дате 1 января 1900 года соответствует номер 1, а 1 января 2008 года — 39448, так как интервал между этими датами составляет 39 447 дней. Чтобы вывести правильную дату, нужно изменить формат ячейки.

Функция ДАТА, пример 1

Синтаксис: ДАТА(год;месяц;день)

Например, =ДАТА(C2;A2;B2) объединяет значение года из ячейки C2, месяца из ячейки A2 и дня из ячейки B2 и помещает их в одну ячейку в виде даты. В примере ниже показан результат в ячейке D2.

Функция ДАТА, пример 2

Нужно вставить даты, не используя формулу? Никаких проблем! Вы можете вставить в ячейку текущую дату и время или обновляемую дату. Вы также можете автоматически заполнить ячейки листа данными.

  1. Щелкните правой кнопкой мыши ячейки, которые вы хотите изменить. На компьютере Mac щелкните ячейки, удерживая нажатой клавишу CTRL.

  2. На вкладке Главная щелкните Формат > Формат ячеек или нажмите клавиши CTRL+1 (COMMAND+1 на компьютере Mac).

  3. 3. Выберите нужный язык (местоположение) и формат даты.

  4. Дополнительные сведения о форматировании дат см. в статье Пользовательское форматирование даты.

    Форматирование ячейки как даты

Функцию ДАТА можно использовать для формирования даты на основе даты в другой ячейке. Например, с помощью функций ГОД, МЕСЯЦ и ДЕНЬ можно создать дату годовщины, основанную на другой ячейке. Допустим, что сотрудник начал работать 01.10.2016. С помощью функции ДАТА можно рассчитать пятилетний юбилей его работы.

Расчет даты на основе другой даты

  1. Функция ДАТА формирует дату.

    =ДАТА(ГОД(C2)+5;МЕСЯЦ(C2);ДЕНЬ(C2))

  2. Функция ГОД получает значение «2012» из ячейки C2.

  3. К этому значению прибавляется пять лет («+5»), после чего в ячейке D2 выводится «2017».

  4. Функция МЕСЯЦ получает значение «3» из ячейки C2 и добавляет его в ячейку D2 в качестве значения месяца.

  5. Функция ДЕНЬ получает значение «14» из ячейки C2 и добавляет его в ячейку D2 в качестве значения дня.

Если открыть файл, полученный из другой программы, Excel попытается распознать даты в данных. Но иногда это не удается сделать. Возможно, это связано с тем, что числа не похожи на обычные даты или отформатированы как текст. В таком случае их можно преобразовать в даты с помощью функции ДАТА. Например, на приведенном ниже рисунке ячейка C2 содержит дату, которая имеет формат ГГГГММДД. Она также отформатирована как текст. Для ее преобразования в дату функция ДАТА используется в сочетании с функциями ЛЕВСИМВ, ПСТР и ПРАВСИМВ.

Преобразование текстовых строк и чисел в даты

  1. Функция ДАТА формирует дату.

    =ДАТА(ЛЕВСИМВ(C2;4);ПСТР(C2;5;2);ПРАВСИМВ(C2;2))

  2. Функция ЛЕВСИМВ получает первые 4 знака слева в ячейке C2. При этом значение «2014» становится годом преобразованной даты в ячейке D2.

  3. Функция ПСТР ссылается на ячейку C2. Она получает 2 знака справа от 5-го знака. При этом значение «03» становится месяцем преобразованной даты в ячейке D2. «0» не включается в результат из-за формата Дата, заданного для ячейки D2.

  4. Функция ПРАВСИМВ получает первые 2 знака в ячейке C2 от правого края и добавляет «14» в ячейку D2 в качестве значения дня.

Чтобы увеличить или уменьшить дату на определенное количество дней, просто добавьте его к значению либо ссылке на ячейку с датой или вычтите его.

В приведенном ниже примере ячейка A5 содержит дату, которую нужно увеличить или уменьшить на 7 дней (значение в ячейке C5).

Увеличение или уменьшение даты на указанное количество дней

См. также

Сложение или вычитание дат

Вставка текущих даты и времени в ячейку

Автоматическое заполнение ячеек листа данными

Функция ГОД

Функция МЕСЯЦ

Функция ДЕНЬ

Функция СЕГОДНЯ

Функция ДАТАЗНАЧ

Функции даты и времени (справка)

Все функции Excel (по категориям)

Все функции Excel (по алфавиту)

Нужна дополнительная помощь?

вставка Даты создания файла в ячейку

MifV

Дата: Среда, 16.07.2014, 19:49 |
Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8


Репутация:

0

±

Замечаний:
20% ±


Excel 2003

Добрый день!
Подскажите пожалуйста как в ячейку листа вставить дату создания этого же файла. Именно дату создания (из атрибутов файла), а не дату изменения или открытия.
Спасибо

ПС. поиск по форуму результатов не дал

 

Ответить

Serge_007

Дата: Среда, 16.07.2014, 20:07 |
Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 15894


Репутация:

2623

±

Замечаний:
±


Excel 2016

Здравствуйте
Excel этого не умеет, но можно на VBA:

[vba]

Код

Sub MifV()
          Dim objFSO As Scripting.FileSystemObject
          Dim fsoFile, DateCreate
          Dim FilePath As String
              Set objFSO = New Scripting.FileSystemObject
              FilePath = «путь к файлу»
              Set fsoFile = objFSO.GetFile(FilePath)
              DateCreate = (fsoFile.DateCreated)
              [a1] = DateCreate ‘в ячейку А1 текущего листа вставляем дату создания файла
End Sub

[/vba]


ЮMoney:41001419691823 | WMR:126292472390

 

Ответить

MifV

Дата: Среда, 16.07.2014, 20:36 |
Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8


Репутация:

0

±

Замечаний:
20% ±


Excel 2003

Serge_007, Спасибо! я, к сожалению, совсем не силен в ВБА, при выполнении выдает ошибку «User-defined type not defined» что я делаю не так?

 

Ответить

Serge_007

Дата: Среда, 16.07.2014, 20:39 |
Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 15894


Репутация:

2623

±

Замечаний:
±


Excel 2016

Подключите Microsoft Scripting Runtime (Tools — References)


ЮMoney:41001419691823 | WMR:126292472390

 

Ответить

MifV

Дата: Среда, 16.07.2014, 20:49 |
Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8


Репутация:

0

±

Замечаний:
20% ±


Excel 2003

а у меня вкладка «References» неактивна

 

Ответить

Serge_007

Дата: Среда, 16.07.2014, 20:56 |
Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 15894


Репутация:

2623

±

Замечаний:
±


Excel 2016

Run — reset


ЮMoney:41001419691823 | WMR:126292472390

 

Ответить

_Boroda_

Дата: Среда, 16.07.2014, 21:40 |
Сообщение № 7

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16618


Репутация:

6465

±

Замечаний:
0% ±


2003; 2007; 2010; 2013 RUS

Можно так еще
[vba]

Код

Sub tt()
[A1] = FileDateTime(ThisWorkbook.Name)
End Sub

[/vba]


Скажи мне, кудесник, любимец ба’гов…
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

 

Ответить

Serge_007

Дата: Среда, 16.07.2014, 22:01 |
Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 15894


Репутация:

2623

±

Замечаний:
±


Excel 2016

Саш, я не проверял, но справка утверждает что

FileDateTime позволяет узнать дату и время последней модификации файла. Если файл с момента своего создания не модифицировался, время и дата последней модификации совпадают со временем и датой создания файла


ЮMoney:41001419691823 | WMR:126292472390

 

Ответить

_Boroda_

Дата: Среда, 16.07.2014, 22:46 |
Сообщение № 9

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16618


Репутация:

6465

±

Замечаний:
0% ±


2003; 2007; 2010; 2013 RUS

Действительно. Перепутал


Скажи мне, кудесник, любимец ба’гов…
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

 

Ответить

MifV

Дата: Четверг, 17.07.2014, 08:27 |
Сообщение № 10

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8


Репутация:

0

±

Замечаний:
20% ±


Excel 2003

Serge_007, да всё получилось, спасибо. (правда помимо даты вписывает еще и время, но это не важно).
Подскажите еще, а как теперь сделать, чтобы этот макрос был привязан к определенному шаблону и выполнялся и при первом сохранении книги, созданной из этого шаблона.

 

Ответить

MifV

Дата: Понедельник, 27.10.2014, 12:15 |
Сообщение № 11

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8


Репутация:

0

±

Замечаний:
20% ±


Excel 2003

Serge_007,
а если так?

[vba]

Код

Sub creation_date()
[A1] = BuiltinDocumentProperties.Item(11)
end sub

[/vba]

Сообщение отредактировал Serge_007Понедельник, 27.10.2014, 18:07

 

Ответить

Alex_ST

Дата: Понедельник, 27.10.2014, 16:44 |
Сообщение № 12

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:

604

±

Замечаний:
0% ±


2003

По имени к элементу коллекции обращаться, имхо, удобнее чем по индексу
[vba]

Код

Sub Creation_Date()
Debug.Print ThisWorkbook.BuiltinDocumentProperties(«Creation date»)
End Sub

[/vba]



С уважением,
Алексей
MS Excel 2003 — the best!!!

Сообщение отредактировал Alex_STВторник, 28.10.2014, 10:17

 

Ответить

krosav4ig

Дата: Понедельник, 27.10.2014, 23:38 |
Сообщение № 13

Группа: Друзья

Ранг: Старожил

Сообщений: 2346


Репутация:

989

±

Замечаний:
0% ±


Excel 2007,2010,2013

Подключите Microsoft Scripting Runtime (Tools — References)

а можно и не подключать, если вместо[vba]

Код

Dim objFSO As Scripting.FileSystemObject
Set objFSO = New Scripting.FileSystemObject

[/vba]написать[vba]

Код

Dim objFSO: Set objFSO = CreateObject(«Scripting.FileSystemObject»)

[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4igПонедельник, 27.10.2014, 23:38

 

Ответить

Alex_ST

Дата: Вторник, 28.10.2014, 10:32 |
Сообщение № 14

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:

604

±

Замечаний:
0% ±


2003

krosav4ig, ну, вообще-то можно и «совсем позднее» связывание применить без подключения Microsoft Scripting Runtime и назначения объектов:
[vba]

Код

Sub CR_DT()
Debug.Print CreateObject(«Scripting.FileSystemObject»).GetFile(ThisWorkbook.FullName).DateCreated
End Sub

[/vba]



С уважением,
Алексей
MS Excel 2003 — the best!!!

 

Ответить

Alex_ST

Дата: Вторник, 28.10.2014, 10:41 |
Сообщение № 15

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:

604

±

Замечаний:
0% ±


2003

ЧУДЕСА: при тестировании случайно выяснил, что встроенное свойство файла Creation date почему-то (по крайней мере у меня) возвращает какую-то левую дату в отличие от свойства файла DateCreated, считываемого из файловой системы!!! shock
[vba]

Код

Sub Cr_Dat_Compare()
Debug.Print CreateObject(«Scripting.FileSystemObject»).GetFile(ThisWorkbook.FullName).DateCreated
Debug.Print ThisWorkbook.BuiltinDocumentProperties(«Creation date»)
End Sub

[/vba]
Специально, чтобы выяснить, в каком встроенном свойстве файла записана дата его создания, наскоро слепил процедурку[vba]

Код

Private Sub BuiltinDocumentProperties_VIEW_ALL()   ‘ просмотр всех имеющихся BuiltinDocumentProperties
    Dim DocProp As DocumentProperty, sDocPropVal$
    On Error Resume Next
Debug.Print «ThisWorkbook contains » & ThisWorkbook.BuiltinDocumentProperties.Count & » BuiltinDocumentProperties :»
    For Each DocProp In ThisWorkbook.BuiltinDocumentProperties
       sDocPropVal = «Empty»: sDocPropVal = DocProp.Value
Debug.Print DocProp.Name & » = » & sDocPropVal
    Next
End Sub

[/vba]НЕ НАШЁЛ!!! :'(



С уважением,
Алексей
MS Excel 2003 — the best!!!

 

Ответить

krosav4ig

Дата: Вторник, 28.10.2014, 11:23 |
Сообщение № 16

Группа: Друзья

Ранг: Старожил

Сообщений: 2346


Репутация:

989

±

Замечаний:
0% ±


Excel 2007,2010,2013

Alex_ST, свойство Creation date excel записывает сразу при создании книги (открытия excel) еще до сохранения и никогда не перезаписывается, свойство файла DateCreated записывается при первом сохранении этого файла. Если открыть старый файл и сохранить его как, то запишется только DateCreated. Вот и вся магия


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

 

Ответить

Alex_ST

Дата: Вторник, 28.10.2014, 11:34 |
Сообщение № 17

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:

604

±

Замечаний:
0% ±


2003

Creation date excel записывает сразу при создании книги (открытия excel)

Ну, ну… У меня в только что созданной новой книге (да и вообще в любой!) встроенное свойство даёт 25.01.2002 19:21:33
Т.е., похоже, что это дата и время создания не файла, а установленной у меня версии Excel-2003
(и нафига это, интересно, кому-то нужно?)



С уважением,
Алексей
MS Excel 2003 — the best!!!

 

Ответить

Alex_ST

Дата: Вторник, 28.10.2014, 11:37 |
Сообщение № 18

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:

604

±

Замечаний:
0% ±


2003

Упс! Проверил на свежесозданном и даже ещё не сохранённом файле в Excel-2010…
Те же самые 25.01.2002 19:21:33
Да… Тогда 2010 ещё точно не существовал даже в планах.



С уважением,
Алексей
MS Excel 2003 — the best!!!

 

Ответить

krosav4ig

Дата: Вторник, 28.10.2014, 11:39 |
Сообщение № 19

Группа: Друзья

Ранг: Старожил

Сообщений: 2346


Репутация:

989

±

Замечаний:
0% ±


Excel 2007,2010,2013

а может у вас батарейка 2032 сдохла и время сбилось?
хотя, тут скорее всего дело в чем-то другом, если это была бы батарейка, то время бы шло.


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4igВторник, 28.10.2014, 11:50

 

Ответить

Alex_ST

Дата: Вторник, 28.10.2014, 11:54 |
Сообщение № 20

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176


Репутация:

604

±

Замечаний:
0% ±


2003

ВЪЕХАЛ!
25.01.2002 19:21:33 — это параметр «Дата создания содержимого» шаблона новой книги — файла Книга.xlt, лежащего в XLSTART рядом с Personal.xls
Я этот файл таскаю за собой с компа на комп, с системы на систему, из Офиса в Офис, вполне может быть, с 2002 года…

(и нафига это, интересно, кому-то нужно?)

__________________________________

батарейка 2032 сдохла и время сбилось?

Зачем обижать то? Я же не лох педальный с маникюром-педикюром чтобы сдохшую батарейку при старте системы не заметить, да и не верное системное время за одно.



С уважением,
Алексей
MS Excel 2003 — the best!!!

 

Ответить

Содержание

  • Работа с функциями даты и времени
    • ДАТА
    • РАЗНДАТ
    • ТДАТА
    • СЕГОДНЯ
    • ВРЕМЯ
    • ДАТАЗНАЧ
    • ДЕНЬНЕД
    • НОМНЕДЕЛИ
    • ДОЛЯГОДА
  • Вопросы и ответы

Функции даты и времени в Microsoft Excel

Одной из самых востребованных групп операторов при работе с таблицами Excel являются функции даты и времени. Именно с их помощью можно проводить различные манипуляции с временными данными. Дата и время зачастую проставляется при оформлении различных журналов событий в Экселе. Проводить обработку таких данных – это главная задача вышеуказанных операторов. Давайте разберемся, где можно найти эту группу функций в интерфейсе программы, и как работать с самыми востребованными формулами данного блока.

Работа с функциями даты и времени

Группа функций даты и времени отвечает за обработку данных, представленных в формате даты или времени. В настоящее время в Excel насчитывается более 20 операторов, которые входят в данный блок формул. С выходом новых версий Excel их численность постоянно увеличивается.

Любую функцию можно ввести вручную, если знать её синтаксис, но для большинства пользователей, особенно неопытных или с уровнем знаний не выше среднего, намного проще вводить команды через графическую оболочку, представленную Мастером функций с последующим перемещением в окно аргументов.

  1. Для введения формулы через Мастер функций выделите ячейку, где будет выводиться результат, а затем сделайте щелчок по кнопке «Вставить функцию». Расположена она слева от строки формул.
  2. Перемещение в Мастер функций в Microsoft Excel

  3. После этого происходит активация Мастера функций. Делаем клик по полю «Категория».
  4. Мастер функций в Microsoft Excel

  5. Из открывшегося списка выбираем пункт «Дата и время».
  6. Выбор категории функций в Microsoft Excel

  7. После этого открывается перечень операторов данной группы. Чтобы перейти к конкретному из них, выделяем нужную функцию в списке и жмем на кнопку «OK». После выполнения перечисленных действий будет запущено окно аргументов.

Переход к аргументам функции в Microsoft Excel

Кроме того, Мастер функций можно активировать, выделив ячейку на листе и нажав комбинацию клавиш Shift+F3. Существует ещё возможность перехода во вкладку «Формулы», где на ленте в группе настроек инструментов «Библиотека функций» следует щелкнуть по кнопке «Вставить функцию».

Переход к вставке функции в Microsoft Excel

Имеется возможность перемещения к окну аргументов конкретной формулы из группы «Дата и время» без активации главного окна Мастера функций. Для этого выполняем перемещение во вкладку «Формулы». Щёлкаем по кнопке «Дата и время». Она размещена на ленте в группе инструментов «Библиотека функций». Активируется список доступных операторов в данной категории. Выбираем тот, который нужен для выполнения поставленной задачи. После этого происходит перемещение в окно аргументов.

Переход к формулам в Microsoft Excel

Урок: Мастер функций в Excel

ДАТА

Одной из самых простых, но вместе с тем востребованных функций данной группы является оператор ДАТА. Он выводит заданную дату в числовом виде в ячейку, где размещается сама формула.

Его аргументами являются «Год», «Месяц» и «День». Особенностью обработки данных является то, что функция работает только с временным отрезком не ранее 1900 года. Поэтому, если в качестве аргумента в поле «Год» задать, например, 1898 год, то оператор выведет в ячейку некорректное значение. Естественно, что в качестве аргументов «Месяц» и «День» выступают числа соответственно от 1 до 12 и от 1 до 31. В качестве аргументов могут выступать и ссылки на ячейки, где содержатся соответствующие данные.

Lumpics.ru

Для ручного ввода формулы используется следующий синтаксис:

=ДАТА(Год;Месяц;День)

Функция ДАТА в Microsoft Excel

Близки к этой функции по значению операторы ГОД, МЕСЯЦ и ДЕНЬ. Они выводят в ячейку значение соответствующее своему названию и имеют единственный одноименный аргумент.

РАЗНДАТ

Своего рода уникальной функцией является оператор РАЗНДАТ. Он вычисляет разность между двумя датами. Его особенность состоит в том, что этого оператора нет в перечне формул Мастера функций, а значит, его значения всегда приходится вводить не через графический интерфейс, а вручную, придерживаясь следующего синтаксиса:

=РАЗНДАТ(нач_дата;кон_дата;единица)

Из контекста понятно, что в качестве аргументов «Начальная дата» и «Конечная дата» выступают даты, разницу между которыми нужно вычислить. А вот в качестве аргумента «Единица» выступает конкретная единица измерения этой разности:

  • Год (y);
  • Месяц (m);
  • День (d);
  • Разница в месяцах (YM);
  • Разница в днях без учета годов (YD);
  • Разница в днях без учета месяцев и годов (MD).

Функция РАЗНДАТ в Microsoft Excel

Урок: Количество дней между датами в Excel

ЧИСТРАБДНИ

В отличии от предыдущего оператора, формула ЧИСТРАБДНИ представлена в списке Мастера функций. Её задачей является подсчет количества рабочих дней между двумя датами, которые заданы как аргументы. Кроме того, имеется ещё один аргумент – «Праздники». Этот аргумент является необязательным. Он указывает количество праздничных дней за исследуемый период. Эти дни также вычитаются из общего расчета. Формула рассчитывает количество всех дней между двумя датами, кроме субботы, воскресенья и тех дней, которые указаны пользователем как праздничные. В качестве аргументов могут выступать, как непосредственно даты, так и ссылки на ячейки, в которых они содержатся.

Синтаксис выглядит таким образом:

=ЧИСТРАБДНИ(нач_дата;кон_дата;[праздники])

Аргументы функции ЧИСТОРАБДНИ в Microsoft Excel

ТДАТА

Оператор ТДАТА интересен тем, что не имеет аргументов. Он в ячейку выводит текущую дату и время, установленные на компьютере. Нужно отметить, что это значение не будет обновляться автоматически. Оно останется фиксированным на момент создания функции до момента её перерасчета. Для перерасчета достаточно выделить ячейку, содержащую функцию, установить курсор в строке формул и кликнуть по кнопке Enter на клавиатуре. Кроме того, периодический пересчет документа можно включить в его настройках. Синтаксис ТДАТА такой:

=ТДАТА()

Функция ТДАТА в Microsoft Excel

СЕГОДНЯ

Очень похож на предыдущую функцию по своим возможностям оператор СЕГОДНЯ. Он также не имеет аргументов. Но в ячейку выводит не снимок даты и времени, а только одну текущую дату. Синтаксис тоже очень простой:

=СЕГОДНЯ()

Функция СЕГОДНЯ в Microsoft Excel

Эта функция, так же, как и предыдущая, для актуализации требует пересчета. Перерасчет выполняется точно таким же образом.

ВРЕМЯ

Основной задачей функции ВРЕМЯ является вывод в заданную ячейку указанного посредством аргументов времени. Аргументами этой функции являются часы, минуты и секунды. Они могут быть заданы, как в виде числовых значений, так и в виде ссылок, указывающих на ячейки, в которых хранятся эти значения. Эта функция очень похожа на оператор ДАТА, только в отличии от него выводит заданные показатели времени. Величина аргумента «Часы» может задаваться в диапазоне от 0 до 23, а аргументов минуты и секунды – от 0 до 59. Синтаксис такой:

=ВРЕМЯ(Часы;Минуты;Секунды)

Функция ВРЕМЯ в Microsoft Excel

Кроме того, близкими к этому оператору можно назвать отдельные функции ЧАС, МИНУТЫ и СЕКУНДЫ. Они выводят на экран величину соответствующего названию показателя времени, который задается единственным одноименным аргументом.

ДАТАЗНАЧ

Функция ДАТАЗНАЧ очень специфическая. Она предназначена не для людей, а для программы. Её задачей является преобразование записи даты в обычном виде в единое числовое выражение, доступное для вычислений в Excel. Единственным аргументом данной функции выступает дата как текст. Причем, как и в случае с аргументом ДАТА, корректно обрабатываются только значения после 1900 года. Синтаксис имеет такой вид:

=ДАТАЗНАЧ (дата_как_текст)

Функция ДАТАЗНАЧ в Microsoft Excel

ДЕНЬНЕД

Задача оператора ДЕНЬНЕД – выводить в указанную ячейку значение дня недели для заданной даты. Но формула выводит не текстовое название дня, а его порядковый номер. Причем точка отсчета первого дня недели задается в поле «Тип». Так, если задать в этом поле значение «1», то первым днем недели будет считаться воскресенье, если «2» — понедельник и т.д. Но это не обязательный аргумент, в случае, если поле не заполнено, то считается, что отсчет идет от воскресенья. Вторым аргументом является собственно дата в числовом формате, порядковый номер дня которой нужно установить. Синтаксис выглядит так:

=ДЕНЬНЕД(Дата_в_числовом_формате;[Тип])

Функция ДЕНЬНЕД в Microsoft Excel

НОМНЕДЕЛИ

Предназначением оператора НОМНЕДЕЛИ является указание в заданной ячейке номера недели по вводной дате. Аргументами является собственно дата и тип возвращаемого значения. Если с первым аргументом все понятно, то второй требует дополнительного пояснения. Дело в том, что во многих странах Европы по стандартам ISO 8601 первой неделей года считается та неделя, на которую приходится первый четверг. Если вы хотите применить данную систему отсчета, то в поле типа нужно поставить цифру «2». Если же вам более по душе привычная система отсчета, где первой неделей года считается та, на которую приходится 1 января, то нужно поставить цифру «1» либо оставить поле незаполненным. Синтаксис у функции такой:

=НОМНЕДЕЛИ(дата;[тип])

Функция НОМНЕДЕЛИ в Microsoft Excel

ДОЛЯГОДА

Оператор ДОЛЯГОДА производит долевой расчет отрезка года, заключенного между двумя датами ко всему году. Аргументами данной функции являются эти две даты, являющиеся границами периода. Кроме того, у данной функции имеется необязательный аргумент «Базис». В нем указывается способ вычисления дня. По умолчанию, если никакое значение не задано, берется американский способ расчета. В большинстве случаев он как раз и подходит, так что чаще всего этот аргумент заполнять вообще не нужно. Синтаксис принимает такой вид:

=ДОЛЯГОДА(нач_дата;кон_дата;[базис])

Функция ДОЛЯГОДА в Microsoft Excel

Мы прошлись только по основным операторам, составляющим группу функций «Дата и время» в Экселе. Кроме того, существует ещё более десятка других операторов этой же группы. Как видим, даже описанные нами функции способны в значительной мере облегчить пользователям работу со значениями таких форматов, как дата и время. Данные элементы позволяют автоматизировать некоторые расчеты. Например, по введению текущей даты или времени в указанную ячейку. Без овладения управлением данными функциями нельзя говорить о хорошем знании программы Excel.

Понравилась статья? Поделить с друзьями:
  • Дата сегодняшнего дня excel
  • Дата с шагом в excel
  • Дата редактирования документа word
  • Дата расхода в excel
  • Дата рабочий день в excel