Советы по 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;

[000795]



Содержание раздела