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 |