Макрос отчёта времени
Добрый день!
Необходим макрос для power-point, показывающий сколько времени прошло с определённой даты.
В макросе необходимо предусмотреть возможность настройки вида прошедшего времени:
количество дней, часов, минут, секунд, прошедших с заданной даты;
количество лет, месяцев, дней, минут, секунд, прошедших с заданной даты.
-
Дата, от которой отсчитывать, откуда берется?
Куда выводить результат?
По какому событию обновлять показания?
-
Добрый день!
Дата задаётся пользователем, обновляется тоже пользователем.
Результат выводить нужно на слайд power point текстом, доступным для настройки шрифта, цвета и размера
-
На какой конкретно слайд?
-
обновляется тоже пользователем.
Имелось в виду обновление не начальной даты, а разницы
-
Обновление нужно посекундное в идеале, чтобы таймер был как часы, только считает с заданного момента
-
Дата задаётся пользователем
Каким способом: на каком-то слайде, в каком-то диалоговом окне, в самом тексте макроса или как-то еще?
-
Пользователь задает только дату или дату + время?
-
Пользователь задаёт дату и время, а вывод нужен на любой слайд презентации power point
-
вывод нужен на любой слайд презентации
На любой, указанный пользователем, или на текущий или какой?
-
+ вывод должен осуществляться в подготовленное текстовое поле или в новое?
-
Вывод на текущий слайд, отдельным текстовым блоком.
-
Так?
-
Кроме слова "прошло".
В остальном всё так
-
Могу отдать за спасибо. Слово "Прошло" замените сами:
Sub Unb()
Dim время As Date
Dim дата_начала As Date
' Запросить дату начала отсчета у пользователя
дата_начала = InputBox("Введите дату начала отсчета в формате ДД.ММ.ГГГГ", "Дата начала отсчета")
' Проверить, что пользователь ввел корректную дату
If IsDate(дата_начала) = False Then
MsgBox "Вы ввели некорректную дату. Попробуйте еще раз."
Exit Sub
End If
' Преобразовать введенную дату в формат Date
дата_начала = CDate(дата_начала)
Do While True
время = Now() - дата_начала
' Тут важно указать номер слайда и имя Текстового бокса - сейчас установлено соответственно "2" и "TextBox"
ActivePresentation.Slides(2).Shapes("TextBox").TextFrame.TextRange = "Прошло " & Format(время, "yy") & " л. " & Format(время, "m") & " м. " & Format(время, "d") & " д. " & Format(время, "hh:mm:ss")
DoEvents
Loop
End Sub
-
Щиро дякую, көп рақмет)сейчас попробую
-
Актуальные фриланс-проекты в категории Разработка презентаций
Разработка корпоративной презентации
1120 UAH
Необходимо разработать профессиональную презентацию на английском языке, посвящённую сравнению традиционных дизельных генераторов и решений CNG-to-Power (Compressed Natural Gas to Power). Основная цель презентации — убедительно показать клиенту экономические, экологические и… Разработка презентаций ∙ 6 часов 32 минуты назад ∙ 30 ставок |
Создание структурированного PDF Guide на основе авторской методики восстановления бровейИщу специалиста с опытом создания учебных материалов и digital-продуктов. У меня есть собственная авторская методика восстановления бровей после многолетнего выщипывания, оформленная в виде документа объемом 126 страниц. Необходимо проанализировать материал, выделить самую… Редактура и корректура текстов, Разработка презентаций ∙ 1 день 17 часов назад ∙ 27 ставок |
Презентации для мотокурсовНеобходимо создать короткие презентации для курсов по вождению мотоцикла, основываясь на уже написанном тексте, который будет предоставлен. Презентации должны быть лаконичными. Всего это 16 презентаций, которые нужно будет выполнить. Разработка презентаций ∙ 5 дней назад ∙ 57 ставок |
Графічний дизайнер / 3D-візуалізатор (Ultra-Premium Real Estate)Доработка презентации (Premium/Ultra-Luxury Real Estate) Ищу сильного 3D дизайнера для доработки существующей презентации в сфере premium/ultra-luxury недвижимости. Задание: Нужно доработать 1 презентацию (до 60 слайдов), уже имеющую базовую структуру и контент. Основная задача… Полиграфический дизайн, Разработка презентаций ∙ 6 дней 20 часов назад ∙ 9 ставок |
Редизайн презентацииУ нас есть готовая презентация на 18 слайдов, нужно сделать её современной и более визуально привлекательной. Обновить визуальное восприятие. Разработка презентаций ∙ 9 дней 1 час назад ∙ 76 ставок |
Шахтинск