Уважаемые форумчане. Что-то я сегодня не могу простого действия добиться. Есть две переменные; Start="01.01.2017 09:00:00" End="03.01.2017 18:27:31" Result =
Мне нужно получить, в формате времени, какова разница между ними. Т.е. в данном случае Resul=57:27:31 По поиску меня все ведут к Datediff. Но там я получу разницу только в одном измерении (минуты, секунды). А как это вывести в стандартном формате времени?
еще один самопал от формулиста на коленке ну правда большой, но работает
Код
Sub V()
Dim h&, m&, s&
dStart = CDate("01.01.2017 09:00:00")
dEnd = CDate("03.01.2017 18:27:31")
h = DateDiff("h", dStart, dEnd)
m = DateDiff("n", DateAdd("h", DateDiff("h", dStart, dEnd), dStart), dEnd)
s = DateDiff("s", DateAdd("n", DateDiff("n", dStart, dEnd), dStart), dEnd)
Range("A1") = h & ":" & m & ":" & s
End Sub