+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Source Code Development (https://mirage-engine.uk/forums/forumdisplay.php?fid=51)
+----- Forum: Mirage Source 4 (Visual Basic 6) (https://mirage-engine.uk/forums/forumdisplay.php?fid=44)
+----- Thread: Useful-ish function? (/showthread.php?tid=2688)
Useful-ish function? - GIAKEN - 06-04-2009
I'm bored, just came up with this:
Code:
Private Function IsDivisibleBy(ByVal Number As Long, ByVal Divisible As Long) As Boolean
IsDivisibleBy = (Number Mod Divisible) = 0
End FunctionExample in HandleShutDown: If IsDivisibleBy(Secs, 5) Or Secs