13:46 03-10-2003 Даты. Прога есть :)
ЛЕНА! ЭТО ШПОРА ДЛЯ ТЕБЯ НА СЛУЧАЙ, ЕСЛИ ТЫ ВСЕ ЗАБУДЕШЬ 
)
Создай простой текстовый файл (блокнот). Скопируй туда этот текст:
Dim a
Dim days
days = 90
a = Now()
a = InputBox('Начальная дата', '', a)
a = DateAdd('D', days, a)
MsgBox ('Через ' & days & ' дней - ' & a)
(поставь везде двойные кавычки вместо одинарных)
Сохрани. Переименуй файл в 'days.vbs'. кликни файл!
Все работает Рада аки младенец )
)Создай простой текстовый файл (блокнот). Скопируй туда этот текст:
Dim a
Dim days
days = 90
a = Now()
a = InputBox('Начальная дата', '', a)
a = DateAdd('D', days, a)
MsgBox ('Через ' & days & ' дней - ' & a)
(поставь везде двойные кавычки вместо одинарных)
Сохрани. Переименуй файл в 'days.vbs'. кликни файл!
Все работает
Рада аки младенец )
Комментарии:
20:29 08-10-2003
Чего-й то тебя на программирование потянуло...
11:53 09-10-2003
Меня?! Ни за что
Просто мне нужна была такая прога, которая отсчитывала бы от определенной даты 90 дней и выводила в результате новую дату.
Мне такую программку сделали, а я сюда записала, чтобы, если вдруг понадобиться, знать, где взять
Просто мне нужна была такая прога, которая отсчитывала бы от определенной даты 90 дней и выводила в результате новую дату.
Мне такую программку сделали, а я сюда записала, чтобы, если вдруг понадобиться, знать, где взять