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