GFA32 BUG ?? Dim H% = Int(minutes% / 60)

[Roger Cabo]

Hi everyone, in the latest version of gb32 I have a strange issue.
try this:

Dim minutes% = 480
Dim H% = Int(minutes% / 60)
MsgBox H%



I'm expecting H%= 8 but it's 7
This cause a lot wrong calculations in my date and time stuff. 

I hope this has no effect in the user data..

Can someone plz test with the same version of Gb32..

---

[(X)]

The Int() function rounds down to nearest number.

GFA Help:

Fix, Int, Floor & Ceil and Trunc & Frac Functions
Purpose
Return the integer or fractional portion of a numeric expression.

Syntax
n = Ceil(x)
n = Floor(x)

n = Fix(x)
n = Int(x)

n = Trunc(x)
f = Frac(x)

f : floating point variable
x : any numeric variable
n : integer

Description
Ceil rounds up x to the next largest integer, while Floor rounds it down to the next smallest integer.

Trunc removes the fractional element of x and returns the integer, while Frac does the opposite and returns the fraction.

Finally, Int acts like Floor and rounds x down, while Fix is synonymous with Trunc and simply returns its integer element.

[(X)]

Here are a few test results:

$Library "gfawinx"
$Library "UpdateRT"
UpdateRuntime      ' Patches GfaWin23.Ocx

Dim minutes% = 480
Dim Minutesperhour% = 60
Dim H% = Int(minutes% / 60)

Trace Int(480 / 60)
Trace Int(minutes% / 60)
Trace Int(CDbl(minutes%) / 60)
Trace Int(CDbl(minutes%) / CDbl(60))
Trace Int(CSng(minutes%) / 60)
Trace Int(CSng(minutes%) / CSng(60))

Trace CInt(480 / 60)
Trace CInt(minutes% / 60)
Trace CInt(CDbl(minutes%) / 60)
Trace CInt(CDbl(minutes%) / CDbl(60))
Trace CInt(CSng(minutes%) / 60)
Trace CInt(CSng(minutes%) / CSng(60))

Trace Int(minutes% / Minutesperhour)

Trace minutes%
Trace minutes / 60

Output window:

TRACE:(1):Int(480 / 60) = 8
TRACE:(2):Int(minutes% / 60) = 7
TRACE:(3):Int(CDbl(minutes%) / 60) = 7
TRACE:(4):Int(CDbl(minutes%) / CDbl(60)) = 7
TRACE:(5):Int(CSng(minutes%) / 60) = 7
TRACE:(6):Int(CSng(minutes%) / CSng(60)) = 7
TRACE:(7):CInt(480 / 60) = 8
TRACE:(8):CInt(minutes% / 60) = 8
TRACE:(9):CInt(CDbl(minutes%) / 60) = 8
TRACE:(10):CInt(CDbl(minutes%) / CDbl(60)) = 8
TRACE:(11):CInt(CSng(minutes%) / 60) = 8
TRACE:(12):CInt(CSng(minutes%) / CSng(60)) = 8
TRACE:(13):Int(minutes% / Minutesperhour) = 8
TRACE:(14):minutes% = 480
TRACE:(15):minutes / 60 = 8

[Roger Cabo]

Thank you X!!

Found the Bug..



In properties there floating point optimize DIV was enabled.. during with some tests with Sincos.
Thank god.. I was about to ship my new update to customers.. because this bug would cause corrupt employer hours an a lot more terrible issues...

[(X)]

Well look at that! 

I was not expecting such different behaviour from the FP (floating point) Optimization options! 

Good find!

I've been using these settings:

[Roger Cabo]

Dim minutes% = 480
Dim H% = Int(minutes% / 60)

TRACE:(1):Int(480 / 60) = 8
TRACE:(2):Int(minutes% / 60) = 7  ...  (definitely a wrong calculation)

I can not recommended to use any of the floating point optimizations.

[(X)]

I find that when dealing with money most people are very forgiving and are perfectly happy to accept that mistakes will be made.

No, wait... that's about launching people in rockets to the moon and such, 

not about their salaries!

You definitely dodged a bullet there buddy!