MOD函数在Excel VBA中专门使用长变量

Question

UPDATED I'm cleaning up this post after its resolution. To summarize, I was making a user defined formula for excel that calculated the next highest prime number ( =NextHighestPrimeNumber(100) returns 101 ). As I begin experimenting, I noticed the formula would error on around 2.1 billion. I assumed it might have been connected to my variable so I tried DOUBLE, but I still received errors.

Here is the function:

Function NextHighestPrimeNumber(StartingNumber As Double) As Variant
Dim CeilingTest As Long
Dim i As Long

If StartingNumber < 11 Then
            If StartingNumber > 6 Then
                NextHighestPrimeNumber = 11

            ElseIf StartingNumber > 4 Then
                NextHighestPrimeNumber = 7

            ElseIf StartingNumber > 2 Then
                NextHighestPrimeNumber = 5

            ElseIf StartingNumber > 0 Then
                NextHighestPrimeNumber = 3

            ElseIf StartingNumber = 0 Then
                NextHighestPrimeNumber = 1

            Else
                NextHighestPrimeNumber = "Pick A Positive Integer"

            End If

        Exit Function

Else

    'Create Array
    ReDim Prime_Array(0 To 4) As Double
    GoTo StartArrayPopulate
DoneWithStartingArray:

    If StartingNumber Mod 2 = 0 Then
        StartingNumber = StartingNumber - 1
    End If

NewNumber:
        StartingNumber = StartingNumber + 2
        CeilingTest = Int(VBA.Sqr(StartingNumber))


    'Array loop
    For i = LBound(Prime_Array) To UBound(Prime_Array)
        If Prime_Array(i) > CeilingTest Then
            NextHighestPrimeNumber = StartingNumber
            Exit Function
        ElseIf StartingNumber Mod Prime_Array(i) = 0 Then GoTo NewNumber

        End If
    Next i


    'Add new Array Value
ExpandDim:
    ReDim Preserve Prime_Array(UBound(Prime_Array) + 1)
    Prime_Array(UBound(Prime_Array)) = NextHighestPrimeNumber(Prime_Array(UBound(Prime_Array) - 1))

    'test if bigger than cieling
    If Prime_Array(UBound(Prime_Array)) > CeilingTest Then
        NextHighestPrimeNumber = StartingNumber
        Exit Function

    ElseIf StartingNumber Mod Prime_Array(UBound(Prime_Array)) = 0 Then GoTo NewNumber


    Else
        GoTo ExpandDim
    End If

End If


Exit Function

StartArrayPopulate:


Prime_Array(0) = 3
Prime_Array(1) = 5
Prime_Array(2) = 7
Prime_Array(3) = 11
Prime_Array(4) = 13


GoTo DoneWithStartingArray

End Function

Answer 1

The issue is because the VBA MOD function ALWAYS converts the numerator to a LONG variable, even when it is previously defined as Double or is a hard coded number!

Test yourself:

MsgBox (2147483647) mod 3 'Maximum Long Value

Vs.

MsgBox (2147483647 + 1) mod 3'Oh False!

I used the INT function to duplicate the mod calculation Numerator -(INT(Numerator /Denominator)*Denominator) but there are a lot of other creative ways to avoid. Even Evaluate with the excel MOD function worked correctly.

Bottomline: I'm never going to use MOD for any calculations that could potentially be exceeding 2 Billion

I've cleaned up my code significantly since my first post and left the bad rows commented out that were throwing errors flagged with `zz failed code:

Function NextHighestPrimeNumber(StartingNumber As Double) As Variant
Dim CeilingTest As Long
Dim i As Long


If StartingNumber < 11 Then
            If StartingNumber > 6 Then
                NextHighestPrimeNumber = 11

            ElseIf StartingNumber > 4 Then
                NextHighestPrimeNumber = 7

            ElseIf StartingNumber > 2 Then
                NextHighestPrimeNumber = 5

            ElseIf StartingNumber > 0 Then
                NextHighestPrimeNumber = 3

            ElseIf StartingNumber = 0 Then
                NextHighestPrimeNumber = 1

            Else
                NextHighestPrimeNumber = "Pick A Positive Integer"

            End If

        Exit Function

Else

    'Create Array
    ReDim Prime_Array(0 To 4) As Double
    GoTo StartArrayPopulate
DoneWithStartingArray:

    'zz failed code: If StartingNumber Mod 2 = 0 Then
    If StartingNumber - (Int(StartingNumber / 2) * 2) = 0 Then
        StartingNumber = StartingNumber - 1
    End If

NewNumber:
        StartingNumber = StartingNumber + 2
        CeilingTest = INT(VBA.Sqr(StartingNumber))


    'Array loop
    For i = LBound(Prime_Array) To UBound(Prime_Array)
        If Prime_Array(i) > CeilingTest Then
            NextHighestPrimeNumber = StartingNumber
            Exit Function
        'zz failed code: ElseIf StartingNumber Mod Prime_Array(i) = 0 Then 
GoTo NewNumber
        ElseIf StartingNumber - (Int(StartingNumber / Prime_Array(i)) * Prime_Array(i)) = 0 Then GoTo NewNumber
        End If
    Next i


    'Add new Array Value
ExpandDim:
    ReDim Preserve Prime_Array(UBound(Prime_Array) + 1)
    Prime_Array(UBound(Prime_Array)) = NextHighestPrimeNumber(Prime_Array(UBound(Prime_Array) - 1))

    'test if bigger than ceiling
    If Prime_Array(UBound(Prime_Array)) > CeilingTest Then
        NextHighestPrimeNumber = StartingNumber
        Exit Function

    'zz failed code: ElseIf StartingNumber Mod Prime_Array(UBound(Prime_Array)) = 0 Then GoTo NewNumber
    ElseIf StartingNumber - (Int(StartingNumber / Prime_Array(UBound(Prime_Array))) * Prime_Array(UBound(Prime_Array))) = 0 Then GoTo NewNumber

    Else
        GoTo ExpandDim
    End If

End If


Exit Function

StartArrayPopulate:   
Prime_Array(0) = 3
Prime_Array(1) = 5
Prime_Array(2) = 7
Prime_Array(3) = 11
Prime_Array(4) = 13

GoTo DoneWithStartingArray

End Function