Mega Code Archive
Create BigInteger structure using a double-precision floating-point value
<![CDATA[
Imports System
Imports System.Text
Imports Microsoft.VisualBasic.Strings
Imports System.Numerics
Class MainClass
Public Shared Sub Main()
Dim doubleValue As Double = -6e20
Dim bigIntValue As New BigInteger(doubleValue)
Console.WriteLine("{0:N0}", doubleValue)
Console.WriteLine("{0:N0}", bigIntValue)
doubleValue += 1
bigIntValue += BigInteger.One
Console.WriteLine("{0:N0}", doubleValue)
Console.WriteLine("{0:N0}", bigIntValue)
End Sub
End Class
]]>