Matematické funkce XIII - Test dělitelnosti
Funkce: Private Function CheckDivisibility _ (Number As Long, Factor As Long) As Boolean Dim Check As String Check = Number Mod Factor If Check = 0 Then CheckDivisibility = True Else CheckDivisibility = False End If End Function
Zpět