Вычисление времени макросом

[sasha_prof]

Уважаемые знатоки, подскажите пожалуйста есть ли такова возможность макросов, чтоб вычесть время от одной даты к другой, также вычисть от туда обеды если они туда попадают и не рабочее время (рабочее время с 9:00 до 18:00 с обедом с 13:00 до 14:00).
Заранее благодарствую.

[alex77755]

Вызвав функцию и задав начало и конец периода:

Function Разница_времени(Dn, Dk)
Разница_времени = DateDiff("d", Dn, Dk) & "  " & Format(Dn - Dk, "hh:nn")
End Function

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

[sasha_prof]

Сообщение от alex77755

Вызвав функцию и задав начало и конец периода:

Function Разница_времени(Dn, Dk)
Разница_времени = DateDiff("d", Dn, Dk) & "  " & Format(Dn - Dk, "hh:nn")
End Function

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

Как с "Разница_времени" вытащить в разные переменные (сколько дней, часов и т.д.)

qD=(кол дней с переменной "Разница_времени")
qH=(кол часов с переменной "Разница_времени")
qM=(кол минут с переменной "Разница_времени")

[DV68]

Вариант с простыми формулами:

[sasha_prof]

Сообщение от sasha_prof

Как с "Разница_времени" вытащить в разные переменные (сколько дней, часов и т.д.)

qD=(кол дней с переменной "Разница_времени")
qH=(кол часов с переменной "Разница_времени")
qM=(кол минут с переменной "Разница_времени")

А с макросом не подсткажете ув. ЗНАТОКИ???