How to use Whole function 1

[vba317]

I was hoping to get some advice on how to use a whole function.

Public Function IsWhole(ByVal Number As Variant) As Boolean

    If InStr(1, CStr(Number), ".") Then
        IsWhole = False
    Else
        IsWhole = True
    End If
        
End Function

I am trying to use this function by the following code

If LowLoopCount = LowLoopCount/8 isWhole Then LowLoopEnd = LowLoopEnd + 8

I know this is wrong beause I get a compile error. I am trying to run a loop where the upper range is 8. So I figured if I increment the upper end of the loop by 8 only when the the loop is divided by 8 is a whole number. Any help would be appreciated.

 

[MazeWorX]

try

If LowLoopCount = IsWhole(LowLoopCount / 8) Then
LowLoopEnd = LowLoopEnd + 8



HTH << MaZeWorX >> "I have not failed I have only found ten thousand ways that don't work" <<Edison>>

 

[SkipVought]

Your logic is not correct!

If LowLoopCount / 8 = INT(LowLoopCount / 8) Then

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[PHV]

Another simple way:

If LowLoopCount Mod 8 = 0 Then

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886