|
/7y3uK
Ф-ия:
function IncDay(const AValue: TDateTime;
const ANumberOfDays: Integer): TDateTime;
begin
Result := AValue + ANumberOfDays;
end;
Увеличивает Дату AValue на ANumberOfDays дней...
Соответственно: AValue - ANumberOfDays - уменьшает...
В прицепе - DateUtils.pas
Последний раз редактировалось f00rd; 24.04.2004 в 13:48.
|