vb.netは最も古い日付を表示します

Question

イントロクラスのコーディングプロジェクトとしてのブックコレクションで、最も古い印刷年を表示する必要があります。最初に表示されていますが、文字列から整数に変換しようとしているためファイルに書き込まれません。使用されているコード：

Private Sub findOldest() 
    Dim oldest As Integer = 4000 
    Dim printDate As Integer 
    For index As Integer = 2 To count * 4 - 1 Step 4 
     printDate = CInt(bookData(index)) 
     If oldest > printDate Then 
      oldest = printDate 
     End If 
    Next 
    lblOldestBook.Text = CStr(oldest) 
End Sub 

Answer 1

Linqを使用して、最も早い日付を返すことができます。 .Textプロパティへの書き込みに関しては、.ToString()を使用してオブジェクト内の文字列として表すことができます。

Dim MinDate = (From d In bookData).Min() 'untested! 

lblOldestBook.Text = oldest.ToString()