Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Время [D5]

Juli © (2002-05-16 11:01:00)
Подскажите подалуйста, как можно определить количество дней месяца. Но не так: if month=1 to col_day=31 и т.д.

Juli (2002-05-16 11:57:00) [1]
СПАСИБО

Johnmen (2002-05-16 11:52:00) [2]
>Donal_Graeme : Можно, но не сегодня...:o)

Игорь Шевченко (2002-05-16 11:51:00) [3]
Johnmen © (16.05.02 11:23)

> Год, кратный 2000, невисокосный...что не учтено...

Это вам, мягко говоря, кажется... :-)

С уважением,

Donal_Graeme (2002-05-16 11:28:00) [4]
почему это невисокосный??? можно цитату из официальных источников? :-)

Johnmen (2002-05-16 11:23:00) [5]
>Игорь Шевченко ©
Год, кратный 2000, невисокосный...что не учтено...

Игорь Шевченко (2002-05-16 11:13:00) [6]
День добрый,

function IsLeapYear(AYear: Integer): Boolean;
begin
Result := (AYear mod 4 = 0) and ((AYear mod 100 <> 0) or (AYear mod 400 = 0));
end;

function DaysPerMonth(AYear, AMonth: Integer): Integer;
const
DaysInMonth: array[1..12] of Integer =
(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
Result := DaysInMonth[AMonth];
if (AMonth = 2) and IsLeapYear(AYear) then Inc(Result); { leap-year Feb is special }
end;

Функции из RxLib

С уважением,

Johnmen (2002-05-16 11:12:00) [7]
DaysInMonth

Наверх

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