Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Командная строка, батники, сценарии (bat, cmd)

Модерирует : gyra, Maz

Widok (03-03-2010 16:29): Лимит страниц. Продолжаем здесь.  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

Rush

Уже за тридцать...
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Для облегчения сравнения результаты записываются в файл.

Код:
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
 

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 06:45 06-06-2009
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Командная строка, батники, сценарии (bat, cmd)
Widok (03-03-2010 16:29): Лимит страниц. Продолжаем здесь.


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru