GsDatePeriod.TgsDatePeriod.Kind
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) (→Описание) |
SYSDBA (обсуждение | вклад) (→Описание) |
||
| Строка 1: | Строка 1: | ||
{{PropertyDef_Template|unit=gsDatePeriod|class=TgsDatePeriod|visibility=public|src=property Kind: TgsDatePeriodKind read FKind write SetKind;}} | {{PropertyDef_Template|unit=gsDatePeriod|class=TgsDatePeriod|visibility=public|src=property Kind: TgsDatePeriodKind read FKind write SetKind;}} | ||
== Описание == | == Описание == | ||
| − | <onlyinclude>Тип периода.</onlyinclude> При записи в это свойство конечная дата устанавливается в соответствии с начальной датой и заданным типом периода. | + | <onlyinclude>Тип периода.</onlyinclude> При записи в это свойство конечная дата устанавливается в соответствии с начальной датой и заданным типом периода. По умолчанию равняется dpkFree. |
| + | |||
== Пример == | == Пример == | ||
<syntaxhighlight lang="Delphi"> | <syntaxhighlight lang="Delphi"> | ||
Текущая версия на 18:35, 1 ноября 2010
| Модуль: gsDatePeriod.pas | Тип: property | Видимость: public | Принадлежит: TgsDatePeriod |
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;
