GsDatePeriod.TgsDatePeriod.Kind

Модуль: gsDatePeriod.pas

Тип: property

Видимость: public

Принадлежит: TgsDatePeriod

Delphi:

 property Kind: TgsDatePeriodKind read FKind write SetKind;

Описание

Тип периода. При записи в это свойство конечная дата устанавливается в соответствии с начальной датой и заданным типом периода.

Пример

function HowManyDaysInAYear(const Y: Integer);
var
  D: TgsDatePeriod;
begin
  D := TgsDatePeriod.Create;
  try
    D.Date := EncodeDate(Y, 1, 1);
    D.Kind := dpkYear;
    Result := D.DurationDays;
  finally
    D.Free;
  end;
end;