VB.Net by API/System/Double

Double.Epsilon

<source lang="vbnet"> public class Test

  public Shared Sub Main
       Dim D As Double
   
       D = 5
       Console.WriteLine(D.Epsilon)
  End Sub

End class

 </source>

Double.IsNaN()

<source lang="vbnet">

Imports System Module MyModule

 Sub Main()
   If (Double.IsNaN("1.2")) Then
     Console.WriteLine("Not a Number.")
   End If
 End Sub

End Module

 </source>

Double.IsNegativeInfinity()

<source lang="vbnet">

Imports System Module MyModule

 Sub Main()
   If (Double.IsNegativeInfinity("0.0000000000000001")) Then
       Console.WriteLine("Negative infinity.")
   End If
 End Sub

End Module

 </source>

Double.IsPositiveInfinity()

<source lang="vbnet"> Imports System Module MyModule

 Sub Main()
   If (Double.IsPositiveInfinity("999999999999999999999999999999999")) Then
     Console.WriteLine("Positive infinity.")
   End If
 End Sub

End Module

 </source>

Double.MaxValue

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
   
       Dim result As New System.Text.StringBuilder
       Dim maxSingle As Single = Single.MaxValue
       Dim maxDouble As Double = Double.MaxValue
       Dim sizeOfSingle As Integer = Runtime.InteropServices.Marshal.SizeOf(maxSingle.GetType)
       Dim sizeOfDouble As Integer = Runtime.InteropServices.Marshal.SizeOf(maxDouble.GetType)
       result.Append("Memory size of a Single (bytes): ")
       result.AppendLine(sizeOfSingle)
       result.Append("Maximum value of a Single: ")
       result.AppendLine(maxSingle)
       result.AppendLine()
       result.Append("Memory size of a Double (bytes): ")
       result.AppendLine(sizeOfDouble)
       result.Append("Maximum value of a Double: ")
       result.AppendLine(maxDouble)
       Console.WriteLine(result.ToString())
    End Sub

End Class

 </source>

Double.Parse

<source lang="vbnet">

Public Class Tester

   Public Shared Sub Main
       Dim doubleParse As Double = Double.Parse("3.1416")
       Console.WriteLine(doubleParse)
   End Sub

End Class

 </source>

Double.ToString(String format)

<source lang="vbnet">

Public Class Tester

   Public Shared Sub Main
       Dim dblNum As Double = 2123.456
       Console.WriteLine(dblNum.ToString("#,###.###000"))
   End Sub

End Class

 </source>