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.