Как узнать количество дней в месяце

Вашему вниманию предлагается простая функция, которая и будет возвращать количество дней в месяце: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;

Вот собственно и все, удачных проб. Сургай Владимир