ICalendarDimension.AttributeCount

Syntax

AttributeCount: Integer;

Description

The AttributeCount property returns the number of system attributes in the dictionary.

Example

Executing the example assumes that repository contains a calendar dictionary with the CALENDAR_DIM identifier.

Sub UserProc;
Var
    MB: IMetabase;
    CalDim: ICalendarDimension;
    i: Integer;
Begin
    MB:=MetabaseClass.Active;
    CalDim:=MB.ItemById("CALENDAR_DIM").Bind As ICalendarDimension;
    i:=CalDim.AttributeCount;
End Sub UserProc;

After executing the example the "i" variable contains the number of system dictionary attributes.