Подсчитать количество дней в месяце?

function 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
         els
e
            Result := 31;
      end
      else
      begin
         if ( mm mod 2 ) = 0 then
            Result := 31
         else
            Result := 30 pan>;
      end;
   end;
end;