определение кол-ва дней в месяце

[apelsin]

как по значению года и месяца определить кол-во дней в данном месяце?

[Alar]

январь 31 день. февраль 28 или 29... это просто знать надо. Вообще не понял вопроса .

Если что-то известно заранее, то создаёться таблица соответсвия, некоторые любят называть это "Кеш"

[mihali4]

procedure Tfmain.ButtonDateCalcClick(Sender: TObject);
var dt: TDate;
y,m,d: word;
begin
y:=1987;
m:=2;
//сколько дней в феврале 1987 года?
dt:=EncodeDate(y,m+1,1)-1;
DecodeDate(dt,y,m,d);
MonthCalendar1.Date:=dt; //для наглядности
ShowMessage('В феврале 1987 года '+IntToStr(d)+' дней');
end;

[Plague]

Вот как реализован ответ на твой вопрос в Delphi в модуле Calendar.pas

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

function TCalendar.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;

function TCalendar.DaysThisMonth: Integer;
begin
Result := DaysPerMonth(Year, Month);
end;

Думаю коментарии с моей стороны будут лишними.