Problem with compaison of Single to Double

[DK]

Observe the following snippet of code and see if you can explain why
it happens.

Dim sAnything as Single

sAnything = 31.308

If sAnything 31.308 then
msgbox "value greater"
else
msgbox "value less or equal"
endif
Why does this code always go thru the "value greater" portion?

changing the IF condition to If sAnything CSng(31.308) then it
behaves as expected but why?

[Jan Hyde (VB MVP)]

DK <dw*****@ermco-eci.com>'s wild thoughts were released on
Fri, 07 Sep 2007 06:59:33 -0700 bearing the following fruit:

>Observe the following snippet of code and see if you can explain why
it happens.

Dim sAnything as Single

sAnything = 31.308

If sAnything 31.308 then
msgbox "value greater"
else
msgbox "value less or equal"
endif
Why does this code always go thru the "value greater" portion?

changing the IF condition to If sAnything CSng(31.308) then it
behaves as expected but why?

Because your now comparing two numbers that using the same
level of precision.
--
Jan Hyde

https://mvp.support.microsoft.com/profile/Jan.Hyde