Ознакомившись с этим советом вы узнаете, как узнать количество дней в месяце при помощи Delphi.
Вашему вниманию предлагается простая функция, которая и будет возвращать количество дней в месяце:function TForm1.DaysOfMonth( mm, yy: integer ): integer;
begin
if mm = 2 then
begin
Result := 28;
if IsLeapYear( yy ) then Result := 29;
end
else
begin
if mm < 8 then
begin
if ( mm mod 2 ) = 0 then
Result := 30
else
Result := 31;
end
else
begin
if ( mm mod 2 ) = 0 then
Result := 31
else
Result := 30;
end;
end;
end;
Использовать её довольно просто:procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntToStr(DaysOfMonth(12,2010));
end;
Вот собственно и все, удачных проб. Сургай Владимир