Универсальная функция возврата значения элемента даты

Delphi , Синтаксис , Дата и Время

Автор: Галимарзанов Фанис

Универсальная функция возврата значения элемента даты (год, месяц, день, квартал):

function RetDate(inDate: TDateTime; inTip: integer): integer;
var
  xYear, xMonth, xDay: word;
begin
  Result := 0;
  DecodeDate(inDate, xYear, xMonth, xDay);
  case inTip of
    1: Result := xYear;  // год
    2: Result := xMonth; // месяц
    3: Result := xDay;   // день
    4: if xMonth < 4 then
         Result := 1
       else // квартал
       if xMonth < 7 then
         Result := 2
       else
       if xMonth < 10 then
         Result := 3
       else
         Result := 4;
  end;
end;

В статье описывается универсальная функция RetDate, которая позволяет возвращать значение элемента даты (год, месяц, день или квартал) на языке программирования Pascal.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Дата и Время ::