Делюсь красивым решением (спасибо, подсказали скрипт):
Код:
date1 = inputbox("Введите дату №1" & vbcrlf & vbcrlf & vbcrlf & _
"Например - 01.01.2009 12:00:00", "Калькулятор разности дат", "01.01.2009 12:00:00")
date2 = inputbox("Введите дату №2" & vbcrlf & vbcrlf & vbcrlf & _
"Например - 05.06.2009 11:06:32", "Калькулятор разности дат", "05.06.2009 11:06:32")
arr = array("yyyy", "m", "d", "h", "n", "s")
arr1 = array("лет = ", "месяцев = ", "дней = ", "часов = ", "минут = ", "секунд = ")
for i = 0 to ubound(arr)
sd = datediff(arr(i), cdate(date1), cdate(date2), 2)
res = res & arr1(i) & sd & vbcrlf
next
msgbox res
