VB.NET實現泛型List 排序的方法

'類型定義
Public Structure RingRecord
    Dim recordTime As DateTime
    Dim footSteps As String
    Dim sportMinutes As String
    Dim distance As String
    Dim calorie As String
End Structure

’寫比較子
Private Shared Function sortRingRecord(ByVal xRingRecord As RingRecord, ByVal yRingRecord As RingRecord) As Integer
    If (xRingRecord.recordTime > yRingRecord.recordTime) Then
        Return -1
    ElseIf xRingRecord.recordTime = yRingRecord.recordTime Then
        Return 0
    Else
        Return 1
    End If
 End Function

'排序
Dim lstRingRecord As List(Of RingRecord)
lstRingRecord = JsonConvert.DeserializeObject(Of List(Of RingRecord))(strRecordData) '此處list的元素由Json取得，實際使用依實際情況而定
lstRingRecord.Sort(AddressOf sortRingRecord)