VB.Net by API/System/Double
Содержание
Double.Epsilon
public class Test
public Shared Sub Main
Dim D As Double
D = 5
Console.WriteLine(D.Epsilon)
End Sub
End class
Double.IsNaN()
Imports System
Module MyModule
Sub Main()
If (Double.IsNaN("1.2")) Then
Console.WriteLine("Not a Number.")
End If
End Sub
End Module
Double.IsNegativeInfinity()
Imports System
Module MyModule
Sub Main()
If (Double.IsNegativeInfinity("0.0000000000000001")) Then
Console.WriteLine("Negative infinity.")
End If
End Sub
End Module
Double.IsPositiveInfinity()
Imports System
Module MyModule
Sub Main()
If (Double.IsPositiveInfinity("999999999999999999999999999999999")) Then
Console.WriteLine("Positive infinity.")
End If
End Sub
End Module
Double.MaxValue
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
Double.Parse
Public Class Tester
Public Shared Sub Main
Dim doubleParse As Double = Double.Parse("3.1416")
Console.WriteLine(doubleParse)
End Sub
End Class
Double.ToString(String format)
Public Class Tester
Public Shared Sub Main
Dim dblNum As Double = 2123.456
Console.WriteLine(dblNum.ToString("#,###.###000"))
End Sub
End Class