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

[VictorM]

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

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

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

и это - работает

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

GoTime = Format((Timer - Time1) / 86400, "hh:mm:ss") 'вывод времени в чч:мм:сс

а вывести в формате мм:сс - не получается уж что я только не делил-умножал, не писал
подскажите, пожалуйста, где "собака порылась"
Спасибо.

[SAS888]

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

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

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

[VictorM]

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

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

[VictorM]

SAS888, спасибо за идею
Интересно, но правильно сработала комбинация двух кодов

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

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

[SAS888]

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