Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   

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



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 
      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); 
var 
  days: Integer; 
begin 
  days := DaysOfMonth(7, 2001); 
  ShowMessage('July 2001 has ' + IntToStr(days) + ' days'); 
end;

           


мойка высокого давления karcher . купить куртку кожаную женскую . Отдых в Крыму в семейном отеле - отели Крыма. Все Гостиницы и Цены. . Подарок подруге . Металлические стойки под рекламные буклеты. Металлические стойки под рекламные буклеты. .


Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011