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

Autor: The Bozena