Страница 1 из 1

Вывод времени работы макроса

Добавлено: 15 апр 2008, 11:28
VictorM
Здравствуйте, Уважаемые!
Опять проблемы с датой, временем :(
Есть макрос, подсчитываю время его работы и вывожу в MsgBox.
Вроде все обычно и просто. Проблема возникла с форматом вывода времени.
вот это - работает

Код: Выделить всё

GoTime = Format(Timer - Time1, "000") 'вывод времени в секундах
и это - работает

Код: Выделить всё

GoTime = Format((Timer - Time1) / 86400, "hh:mm:ss") 'вывод времени в чч:мм:сс
а вывести в формате мм:сс - не получается :( уж что я только не делил-умножал, не писал :(
подскажите, пожалуйста, где "собака порылась" :confused:
Спасибо.

Re: Вывод времени работы макроса

Добавлено: 15 апр 2008, 12:50
SAS888
Если нужно просто вывести сообщение, то можно создать необходимую текстовую строку, например:

Код: Выделить всё

GoTime = Timer - Time1
    MsgBox Minute(GoTime) & ":" & Second(GoTime)

Re: Вывод времени работы макроса

Добавлено: 15 апр 2008, 12:59
VictorM
SAS888, не так все просто с датой-временем.
Сейчас сравнил результаты работы кодов:
1. Ваш код, результат вылядит так 7:30 :confused:
2. Мой первый - 0077 т.е. 77сек.
3. Мой второй - 00:01:16 т.е. 1 мин. 16 сек.
Ладно, пусть секуда где-то потерялась, но все правильно.

Я хочу понять, как нужно написать именно Format

Re: Вывод времени работы макроса

Добавлено: 15 апр 2008, 13:48
VictorM
SAS888, спасибо за идею ;)
Интересно, но правильно сработала комбинация двух кодов

Код: Выделить всё

GoTime = Format((Timer - Time1) / 86400, "hh:mm:ss")
MsgBox Minute(GoTime) & ":" & Second(GoTime)

Re: Вывод времени работы макроса

Добавлено: 15 апр 2008, 14:03
SAS888
Безусловно. Minute(GoTime) и Second(GoTime) выделяют минуты и секунды соответственно из "полного" формата времени. Извините, чио не предупредил сразу. Записать Ваш формат через Format мне также никак не удалось.