Универсальная функция возврата значения элемента даты
Falk0ner, вс, 06/07/2008 - 15:34.
Универсальная функция возврата значения элемента даты Автор: Галимарзанов Фанис Универсальная функция возврата значения элемента даты (год, месяц, день, квартал):
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;
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;
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий