Получить число дней в месяце
|
Сидит программист в баре, пьет пиво. Подходит девушка и говорит так кокетливо: - Молодой человек, не подскажете который час? Программист смотрит на девушку мутно-ненавидящим взглядом и произносит, протягивая часы: - Смотри САМА, там ВСЕ написано! |
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;
|
Далее: Последний день месяца »»