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

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

 

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;
 
« Предыдущая статья   Следующая статья »