Mega Code Archive

 

Categories / VB.Net / Development

 

Math Sign returns a value indicating the sign of a decimal number

Class Sample    Public Shared Sub Main()       Dim xByte1 As Byte = 0       Console.WriteLine(Test(Math.Sign(xByte1)))    End Sub 'Main    Public Shared Function Test([compare] As Integer) As [String]       If [compare] = 0 Then          Return "equal to"       ElseIf [compare] < 0 Then          Return "less than"       Else          Return "greater than"       End If    End Function 'Test End Class 'Sample