holy
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'. кликни файл!


Все работает Рада аки младенец )
Комментарии:
слоумышленник
Чего-й то тебя на программирование потянуло...

09-10-2003 11:53
Камрад
Меня?! Ни за что
Просто мне нужна была такая прога, которая отсчитывала бы от определенной даты 90 дней и выводила в результате новую дату.
Мне такую программку сделали, а я сюда записала, чтобы, если вдруг понадобиться, знать, где взять

Ваш комментарий:
Гость []
[смайлики сайта]
Автоматическое распознавание URL
Не преобразовывать смайлики
Cкрыть комментарий
Закрыть