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