03-10-2003 13:46 Даты. Прога есть :)
ЛЕНА! ЭТО ШПОРА ДЛЯ ТЕБЯ НА СЛУЧАЙ, ЕСЛИ ТЫ ВСЕ ЗАБУДЕШЬ 
)
Создай простой текстовый файл (блокнот). Скопируй туда этот текст:
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'. кликни файл!
Все работает
Рада аки младенец )Комментарии:
стикер
08-10-2003 20:29
Дневник • Профиль
слоумышленник
Чего-й то тебя на программирование потянуло...
Камрад
Меня?! Ни за что
Просто мне нужна была такая прога, которая отсчитывала бы от определенной даты 90 дней и выводила в результате новую дату.
Мне такую программку сделали, а я сюда записала, чтобы, если вдруг понадобиться, знать, где взять
Просто мне нужна была такая прога, которая отсчитывала бы от определенной даты 90 дней и выводила в результате новую дату.
Мне такую программку сделали, а я сюда записала, чтобы, если вдруг понадобиться, знать, где взять