в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:50:57Z

1 версия

Новая страница

==Decimal.Compare==

<source lang="vbnet">
public class Test
public Shared Sub Main
Dim D1, D2 As Decimal
D1 = 10
D2 = 5.7
Console.WriteLine(Decimal.rupare(D1, D2))

End Sub
End class

</source>

==Decimal.Divide==

<source lang="vbnet">
public class Test
public Shared Sub Main
Dim D1, D2 As Decimal
D1 = 10
D2 = 5.7
Console.WriteLine(Decimal.Divide(D1, D2))
End Sub
End class

</source>

==Decimal.Floor==

<source lang="vbnet">

public class Test
public Shared Sub Main
Console.WriteLine(Decimal.Floor(5.7))
End Sub
End class

</source>

==Decimal.GetBits==

<source lang="vbnet">
public class Test
public Shared Sub Main
Dim D1, D2 As Decimal
D1 = 10
D2 = 5.7
Console.WriteLine(Decimal.GetBits(3).GetValue(0))

End Sub
End class

</source>

==Decimal.MaxValue==

<source lang="vbnet">
Public Class Tester
Public Shared Sub Main

Dim result As New System.Text.StringBuilder
Dim maxDecimal As Decimal = Decimal.MaxValue
Dim sizeOfDecimal As Integer = Runtime.InteropServices.Marshal.SizeOf(maxDecimal.GetType)
result.Append("Memory size of a Decimal (bytes): ")
result.AppendLine(sizeOfDecimal)
result.Append("Maximum value of a Decimal: ")
result.AppendLine(maxDecimal)
result.Append("Divided by one million: ")
result.AppendLine(maxDecimal / 1000000D)
result.Append("1D / 3D: ")
result.AppendLine(1D / 3D)
Console.WriteLine(result.ToString())
End Sub
End Class

</source>

==Decimal.MinValue==

<source lang="vbnet">
public class Test
public Shared Sub Main
Dim dNum As Decimal
Console.WriteLine("Decimal: " & dNum.MinValue & " to " & dNum.MaxValue)
End Sub
End class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net by API/System/Decimal - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия