Универсальная функция возврата значения элемента даты (год, месяц, день,
квартал):
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
elseif xMonth < 10 then
Result := 3
else
Result := 4;
end;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Универсальная функция возврата значения элемента даты", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!