Макрос звіт часу

Дата, от которой отсчитывать, откуда берется?

Куда выводить результат? 

По какому событию обновлять показания?

Юрий Костельцев 23 квітня 2023

Добрый день! 

Дата задаётся пользователем, обновляется тоже пользователем. 

Результат выводить нужно на слайд power point текстом,  доступным для настройки шрифта, цвета и размера

На какой конкретно слайд?

обновляется тоже пользователем.

Имелось в виду обновление не начальной даты, а разницы

Юрий Костельцев 23 квітня 2023

Обновление нужно посекундное в идеале, чтобы таймер был как часы, только считает с заданного момента

Дата задаётся пользователем

Каким способом: на каком-то слайде, в каком-то диалоговом окне, в самом тексте макроса или как-то еще?

Пользователь задает только дату или дату + время?

Юрий Костельцев 23 квітня 2023

Пользователь задаёт дату и время, а вывод нужен на любой слайд презентации power point

вывод нужен на любой слайд презентации 

На любой, указанный пользователем, или на текущий или какой?

+ вывод должен осуществляться в подготовленное текстовое поле или в новое?

Юрий Костельцев 23 квітня 2023

Вывод на текущий слайд, отдельным текстовым блоком. 

Так?

Юрий Костельцев 23 квітня 2023

Кроме слова "прошло". 

В остальном всё так

Могу отдать за спасибо. Слово "Прошло" замените сами:

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

Юрий Костельцев 23 квітня 2023

Щиро дякую, көп рақмет)сейчас попробую