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