Problem with single(s)?

[Mattyboy2000]

The following code is used to compare two numbers:
Dim sngValues(2) As Single
Dim intAmount As Integer
Dim sngTestValue As Single


sngValues(0) = 63.7

If round(100 * sngValues(0)) = 100 * sngValues(0) then
msgbox "YES"
else
end
endif

Yet the msgbox for this particular number never occurs??????
Any ideas???

[Vlatko]

I tried your code and the message box appears for me.

[paulw]

Very odd!

Have you tried re-booting...

Cheers,

Paul.

[Mattyboy2000]

the number is 1.359293

[paulw]

What?!???

what number, where, how, why - you've been fibbing again, haven't you....

Paul.

[Mattyboy2000]

sngValues(0) = 1.359293
If round(100 * sngValues(0)) = 100 * sngValues(0) then
msgbox "YES"
else
end
endif

Sorry this is the correct bit of code, as to how and why not sure a colleague is using it and asked me to place it on this wonderful site for real VB programmers to ponder!

[paulw]

Well it wouldn't work, would it?

Round 135.9293 is 136 (i.e. <> 135.9293

DOH...

Use this to see what is going on...

MsgBox Round(100 * sngValues(0)) & ", " & 100 * sngValues(0)

Cheers,

Paul.