Public Function CoerceCurrencyToDouble( _ ByVal vcurValue As Currency _ ) As Double
CoerceCurrencyToDouble(1) = 4.94065645841247E-320 CoerceCurrencyToDouble(2) = 9.88131291682493E-320 CoerceCurrencyToDouble(461168601842738.7904) = 2.0000000000001 CoerceCurrencyToDouble(460718241880001.7408) = 1.00000000000002See also:
CoerceDoubleToCurrency Function MakeCurrency Function CoerceToDouble FunctionNote: Similar to but faster than using the MakeCurrency and CoerceToDouble functions.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.