Problem:
[code]
Sub BadCurrency
   Dim c As Currency
   Dim d As Double
   d = 200.432
   c = d
   Print c             ' 200.4319
   Print CCur(d)       ' 200.4319
End Sub
[/code]

This should show 200.4320 when it is printed. I am certain that the problem is
because the value is converted to a double precision number before it is
converted to a currency value.
[code]
   Dim c As Currency
   c = 200.432
   Print c             ' 200.4319
[/code]
A currency variable acts like an integer. The currency type is a fixed precision
floating point number that uses four decimal digits of precision. The problem is
with the conversion from a double to the internal INT64. First, the constant is
converted to a Double, and then it is converted to the INT64.

The trouble starts with the file svtools/source/sbx/sbxconv.hxx
[code]inline
SbxINT64  ImpDoubleToCurrency( double d )
                  { return ImpDoubleToINT64( d * CURRENCY_FACTOR ); }
[/code]
The implementation of this routine, is as follows:
[code]
SbxINT64 ImpDoubleToINT64( double d )
{
  SbxINT64 nRes;
  nRes.Set( d );
  return nRes;
}
[/code]
Great, so now I know that it has to do with the Set method! See
svtools/inc/sbxvar.hxx
[code]
void Set(double n)
{
  if( n >= 0 )
  {
    nHigh = (INT32)(n / (double)4294967296.0);
    nLow  = (UINT32)(n - ((double)nHigh * (double)4294967296.0));
  }
  else {
    nHigh = (INT32)(-n / (double)4294967296.0);
    nLow  = (UINT32)(-n - ((double)nHigh * (double)4294967296.0));
    CHS();
  }
}
[/code]
Our number is small, so nHigh is set to zero. nLow is equivalent to (UINT32)(n).
I need to remind myself, because I have forgotten, exactly what the storage
method is, and how the cast works, but I suspect that this is a bit operation
more than anything, and it will simply take the appropriate bits.
Unfortunately, the number in question, is probably not represented exactly, so
if the bits are simply chopped off, then we lose the guard bits that would have
allowed a double precision number to have appeared as though things were working
nicely.
I suppose that this is enough for now!

Andrew Pitonyak