GsDatePeriod.TgsDatePeriod.Kind

Материал из GedeminWiki

Delphi:

 property Kind: TgsDatePeriodKind read FKind write SetKind;

Описание

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

Пример

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;