'déclaration d'une liste de dates Dim dates As New List(Of Date) 'ajout des dates dates.AddRange({Date.Parse("23/6/2012"), Date.Parse("4/1/2012"), Date.Parse("6/3/2012")}) 'tri dates.Sort() 'affichage MessageBox.Show(String.Format("La date la plus récente est {0}", dates(dates.Count - 1).ToShortDateString))
Dim dates = {Date.Parse("6/23/2012"), Date.Parse("1/4/2012"), Date.Parse("3/6/2012")} MessageBox.Show(String.Format("La date la plus récente est {0}", dates.Max().ToShortDateString))