BitConverter.DoubleToInt64Bits converts double-precision floating point number to a 64-bit signed integer.
Imports System Imports Microsoft.VisualBasic Module DoubleToInt64BitsDemo Sub DoubleToLongBits( argument As Double ) Dim longValue As Long longValue = BitConverter.DoubleToInt64Bits( argument ) Console.WriteLine( longValue ) End Sub Sub Main( ) DoubleToLongBits( 1.0 ) End Sub End Module