VarFmtBCDCreate

procedure VarFmtBCDCreate(

  var aDest: Variant;

  const aBCD: tBCD

);

function VarFmtBCDCreate: Variant;

function VarFmtBCDCreate(

  const aValue: FmtBCDStringtype;

  Precision: Word;

  Scale: Word

):Variant;

function VarFmtBCDCreate(

  const aValue: extended;

  Precision: Word = 18;

  Scale: Word = 4

):Variant;

function VarFmtBCDCreate(

  const aBCD: tBCD

):Variant;