Integer not incrementing

[jgelpi16]

For some reason my integer, i, is not incrementing by 0.5. I have it defined as an integer. Any ideas? Thanks in advance.

rs.FindFirst "[EmplID] = " & fldID
i = -1
For Each fld In rs.Fields
        i = i + 0.5
        If i > 0 Then
            If i = Int(i) Then
                vWeekVal = rs("Week" & i)
                If DatePart("ww", vWeekVal) = DatePart("ww", emplDate) Then
                    If DatePart("yyyy", vWeekVal) = DatePart("yyyy", emplDate) Then
                        rs.Edit
                        rs("Exempt" & i).Value = -1
                        rs.Update
                    End If
                End If
            End If
        End If
    Next fld

[jgelpi16]

Answered my own question....Don't know what I was thinking trying to make an Integer take a decimal...

[TheShabz]

http://www.techterms.com/definition/integer

An integer cannot have a decimal value. Try declaring it as a double or float.


EDIT: woah, we posted at the same time. Hivemind.