06-04-2009, 03:34 AM
I'm bored, just came up with this:
Example in HandleShutDown: If IsDivisibleBy(Secs, 5) Or Secs
Code:
Private Function IsDivisibleBy(ByVal Number As Long, ByVal Divisible As Long) As Boolean
IsDivisibleBy = (Number Mod Divisible) = 0
End Function
Example in HandleShutDown: If IsDivisibleBy(Secs, 5) Or Secs