Скачать: CL | DM;

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

← →
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]

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

---

← →
Anatoly Podgoretsky ©   (2004-01-08 09:02) [5]

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

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

---

← →
Dr.Karter ©   (2004-01-08 09:21) [6]

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

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

8-))))))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c