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 set fso = createobject("scripting.filesystemobject") set resfile = fso.opentextfile("c:\result.txt", 8, true) resfile.write "---------------------------------------------" & vbcrlf _ & "------------ " & cstr(now) & " ------------" & vbcrlf _ & "---------------------------------------------" & vbcrlf & vbcrlf _ & "Начальная дата - " & date1 & vbcrlf _ & "Конечная дата - " & date2 & vbcrlf & vbcrlf & res & vbcrlf resfile.close |