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