Problem using Mod calculation

[Spurious]

I got the following code:

Sub test()
Debug.Print 4 Mod 1.6
Debug.Print 4.2 Mod 1.6
End Sub

Both times I get 0 and 0 as returns, when I should be getting 0.8 and 1.

I am using Office XP 2002.

Anyone got any idea.
Thanks

 

[Jonmo1]

I has to do with the vba mod function truncating the floating point decimals...

Quote from the help files (in XL2003)

Remarks
The modulus, or remainder, operator divides number1 by number2 (rounding floating-point numbers to integers) and returns only the remainder as result. For example, in the following expression, A (result) equals 5.


<CODE>A = 19 Mod 6.7</CODE>
</PRE>Usually, the data type of result is a Byte, Byte variant, Integer, Integer variant, Long, or Variant containing a Long, regardless of whether or not result is a whole number. Any fractional portion is truncated. However, if any expression is Null, result is Null. Any expression that is Empty is treated as 0.

I would suggest
Debug.Print Evaluate("=mod(4,1.6)")

 

[jasonb75]

The MOD function only works with integers in VBA, try

Debug.Print 4-(1.6*Int(4/1.6))

 

[Spurious]

Yeah, both methods work, I guess I have to rely on them.

THANKS