| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Количество дней в месяце. [D5, Win95/98]

Hawk2 ©   (2002-08-12 17:58:00) 

Мастера, подскажите функцию которая возвращает количество дней в указаном месяце?

---

Hawk2   (2002-08-13 10:21:00) [1]

Всем спасибо!!!

---

MrBeer   (2002-08-13 01:38:00) [2]

Юрий Зотов © (12.08.02 23:22)
Ya VCL dostatochno slabo znaju (mozhet na urovne D3 ;), mne bistree napisatj chem iskatj... (ne podozreval chto estj ;)

---

Юрий Зотов   (2002-08-12 23:22:00) [3]

> MrBeer © (12.08.02 20:35)

Ну почему, написано вполне нормально. Просто немного раньше почти то же самое уже написано в VCL. :о)

См. MonthDays и IsLeapYear.

---

MrBeer   (2002-08-12 20:35:00) [4]

Navernoe mozhno napisatj i optimalnee...no...


function LeapYear(year: integer): boolean;
begin
Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;
Function GetDaysInMonth(year,month:integer):integer;
const
DaysInMonth: array[1..12] of Integer =
(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
Result := DaysInMonth[Month];
if (Month = 2) and LeapYear(Year) then Inc(Result);
end;


---

Ученик   (2002-08-12 18:08:00) [5]

DateUtils.DaysInMonth в Delphi 6, может есть и в Delphi 5

---

Наверх