Сколько дней и выходных в году и в определенном месяце?

← →
MakNik © (2004-01-05 14:43) [0]

Подскажите, плз., как узнать:
- количество дней в году и в конкретном месяце;
- количество выходных в году и в месяце;
- и каким днем недели является определенное число;

← →
Voice (2004-01-05 14:51) [1]

1.function DaysInAYear(const AYear: Word): Word;
function DaysInYear(const AValue: TDateTime): Word;
тоже для месяца
2.Выходные просто считаешь, как кол-во недель в месяце/году и умножаешь на 2 (с праздниками сложнее - их надо вводить. Таких функций нету)
3.function DayOfWeek(Date: TDateTime): Integer;

← →
MakNik © (2004-01-05 17:58) [2]

... а где эти функции взять?

← →
alex_*** © (2004-01-05 18:00) [3]

в книжке по Delphi - Delphi Help.

Unit DateUtils

← →
MakNik © (2004-01-08 08:55) [4]

... странно, но у меня такого модуля нет... что делать?...

Не ищи, за исключением DayOfWeek, у тебя их нет
Количество дней в году = 365 + 1 для високосных лет.
Количество выходных дней в году = 52 (при условии, что на каждую неделю, прихоится 2 выходных, что не обязательно). Праздники не поддаются прямой алгоритмизации. Тоже относится к количеству выходных дней в месяце.

Сделай список выходных дней и праздников и обрабатывай по нему.

По пальцам!!!!
Если напираешься на косточку, то дней в месяце 31, а ежели на впадину между пальцами то - 30.

Руку наде держать в кулачек, после окончании пальц на одной руке, поменять руки...

8-))))))

Сколько дней и выходных в году и в определенном месяце? Найти похожие ветки