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

Ознакомившись с этим советом вы узнаете, как узнать количество дней в месяце при помощи Delphi.


Дата: 23.12.2010 г.

Рейтинг: 0

Метки: 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;
Как узнать количество дней в месяце

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




Похожие статьи: