class定義のリスト型のソート（日付）

Question

いつもお世話になっております。

下記定義のデータを日付で並び替えしたいのですが、Array.Sortなどで上手くいかず困っております。
やり方をご教示頂けますでしょうか？

Public Class ClassDateCntList
    Public Property date As DateTime
    Public Property cnt As Integer
End Class

    Dim testList As New List(Of ClassDayCntList)

    Dim testItem1 As ClassDayCntList
    testItem1.date = "2017-01-01 00:00"
    testItem1.cnt = 5
    testList.Add(testItem1)

    Dim testItem2 As ClassDayCntList
    testItem2.date = "2017-02-01 00:00"
    testItem2.cnt = 20
    testList.Add(testItem2)

    Dim testItem3 As ClassDayCntList
    testItem3.date = "2017-01-15 00:00"
    testItem3.cnt = 10
    testList.Add(testItem3)

上記のように値を入れた場合、testListをdateの昇順にしたいと思っております。

宜しくお願い致します。

Answer 1

testList.Sort(Function(a, b) a.date > b.date)

参考
List<T>.Sort メソッド (Comparison<T>)

Comments

[YusukeKoshiba]

ありがとうございます。こちらでソートできました。助かりました。

Answer 2

クラスにIComparableを実装すると、Sortができるようになります。

    Public Class ClassDateCntList
        Implements System.IComparable

        Public Property [date] As DateTime
        Public Property cnt As Integer

        Public Function CompareTo(obj As Object) As Integer Implements IComparable.CompareTo

            'Nothingより大きい
            If obj Is Nothing Then
                Return 1
            End If

            '違う型とは比較できない
            If Not Me.GetType() Is obj.GetType() Then
                Throw New ArgumentException("別の型とは比較できません。", "obj")
            End If

            'dateを比較する
            Return Me.date.CompareTo(DirectCast(obj, ClassDateCntList).date)
        End Function
    End Class

としてやればtestList.Sort()でソートできるようになります。

Comments

[Zuishin]

IComparable を実装するのも一つの方法ではありますが、ソート方法が一つに限定されてしまうのでお勧めではありません。
これは文字や数字など、順番のはっきりしたものに使うインターフェースで、date 以外に cnt でもソートする可能性のあるこのような場合には使えません。

インターフェースであれば IComparer をお勧めします。