ФФ
Фёдор Факушин
Программирование на VBS
Вот задание: Рассчитать количество рабочих дней при пятидневной рабочей неделе c 1.09.2010 по 30.11.2010
Вот задание: Рассчитать количество рабочих дней при пятидневной рабочей неделе c 1.09.2010 по 30.11.2010
thisdate = cdate("01.09.2010")
enddate = cdate("30.11.2010")
daycounter = 0
do while thisdate <= enddate
if weekday(thisdate) < 6 then daycounter = daycounter + 1
thisdate = thisdate + 1
loop
msgbox daycounter