Visual Basic

<br />
       Dim s As String = "this is a string"<br />
        Dim n As Integer = 0<br />
        Dim c As Char<br />
<br />
        For Each c In s<br />
<br />
            n = n Xor Microsoft.VisualBasic.Val(c)<br />
<br />
        Next<br />

nlarson11 wrote:

just curious...if you can't stand vb...why answer questions in the vb forum?

Public Class DataGridViewSortRowsByDateTime
    Implements System.Collections.IComparer
    Private Direction As Integer = 1
    Public Sub New(ByVal so As SortOrder)
        If so = SortOrder.Descending Then
            Direction = -1
        ElseIf so = SortOrder.Ascending Then
            Direction = 1
        End If
    End Sub
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
    Implements System.Collections.IComparer.Compare
        Dim RowOne As DataGridViewRow = CType(x, DataGridViewRow)
        Dim RowTwo As DataGridViewRow = CType(y, DataGridViewRow)
        Dim Result As Integer = _
        System.DateTime.Compare(RowOne.Cells(0).Value, RowTwo.Cells(0).Value)
        Return Result * Direction
    End Function
End Class

System.DateTime.Compare(RowOne.Cells(x).Value, RowTwo.Cells(x).Value)

DataGridView1.Sort(New DataGridViewSortRowsByDateTime(SortOrder.Ascending))

DataGridView1.Sort(New DataGridViewSortRowsByDateTime(SortOrder.Descending))