IDimAttribute.DataType

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    DimModel: IDimensionModel;
    DimAttrs: IDimAttributes;
    DimAttr: IDimAttribute;
    s: String;
Begin
    MB := MetabaseClass.Active;
    DimModel := MB.ItemById("Dim_1").Bind As IDimensionModel;
    DimAttrs := DimModel.Attributes;
    DimAttr := DimAttrs.Item(0);
    Select Case (DimAttr.DataType As Integer)
        Case 0: s := "NoDate";
        Case 1: s := "String";
        Case 2: s := "Integer";
        Case 3: s := "Float";
        Case 4: s := "DateTime";
        Case 5: s := "Blob";
        Case 6: s := "Boolean";
        Case 7: s := "Date";
    End Select;
End Sub UserProc;