Советы по 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 elseif xMonth<10 then Result:=3 else Result:=4;end;
end;

[000795]



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