Integer to Long

This commit is contained in:
Mans 2021-05-07 15:22:30 +02:00
parent 7f2f3592fe
commit 5ee89a26a0
1 changed files with 2 additions and 2 deletions

View File

@ -347,7 +347,7 @@ Public Class Frame_3D
Dim frameCombDT As New DataTable
Dim numOfValues As Integer = l
Dim numOfComb As Integer = Calculate_Factorial(frameLengths.Count) / (Calculate_Factorial(numOfValues) * Calculate_Factorial(frameLengths.Count - numOfValues))
Dim numOfComb As Long = Calculate_Factorial(frameLengths.Count) / (Calculate_Factorial(numOfValues) * Calculate_Factorial(frameLengths.Count - numOfValues))
For j = 1 To numOfValues
frameCombDT.Columns.Add("Enum " & j, GetType(Integer))
@ -447,7 +447,7 @@ Public Class Frame_3D
End Function
Private Shared Function Calculate_Factorial(num As Integer)
Dim result As Integer
Dim result As Long
If num = 0 Then
result = 1
Else