Converts a Variant into a TBcd type.
function VarToBcd(const AValue: Variant): TBcd;
TBcd VarToBcd(const Variant AValue);
FMTBcd
Use VarDoubleAsBcd to obtain a TBcd value from a Variant.
aValue is the Variant to convert.
VarIsFMTBcd