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.