Large numbers

[james2464]

This code seems to work properly

Code: (Select All)

Dim A As _Integer64
Dim B As Double
Dim C As Integer
Dim D As Long

A = 600851475143
C = 347
B = A / C
D = Int(A / C)

Print A
Print C
Print B
Print D

If B = D Then
    Print "equal"
Else
    Print "not equal"
End If

End