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

 

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

 

Code:

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 < 4then

Result := 1

else// квартал

if xMonth < 7then

Result := 2

else

if xMonth < 10then

Result := 3

else

Result := 4;

end;

end;

 

 

https://delphiworld.narod

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить