added VariantToDouble() function and TDocVariantData.GetAsDouble()