Текущий архив: 2003.03.31;
Скачать: CL | DM;
Вниз
Как получить количество дней в месяце учитывая высокосные года? Найти похожие ветки
← →
Step[B.M.] © (2003-03-18 23:52) [0]Спасибо.
← →
Юрий Зотов © (2003-03-19 00:02) [1]Кол-во дней в месяце Month (1..12) года Year (word):
MonthDays[IsLeapYear(Year), Month]
← →
stone © (2003-03-19 09:17) [2]Returns the number of days in a specified month of a specified year.
Unit
DateUtils
Category
datetime routines
Delphi syntax:
function DaysInAMonth(const AYear, AMonth: Word): Word;
Description
Call DaysInAMonth to obtain the number of days in the specified month of the specified year.
AYear is a year between 1 and 9999 (inclusive).
AMonth is a month between 1 and 12 (inclusive).
← →
Юрий Зотов © (2003-03-19 13:37) [3]> stone © (19.03.03 09:17)
В D5?
← →
REA © (2003-03-19 14:36) [4]MonthDays: array [Boolean] of TDayTable =
((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
(31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));
function IsLeapYear(Year: Word): Boolean;
begin
Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;
function DaysInAMonth(const AYear, AMonth: Word): Word;
begin
Result := MonthDays[(AMonth = 2) and IsLeapYear(AYear), AMonth];
end;
← →
stone © (2003-03-19 14:47) [5]> В D5?
А что в D5 такого еще не было?
Страницы: 1 вся ветка
Текущий архив: 2003.03.31;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
