Mega Code Archive

 

Categories / VB.Net / LINQ

 

Query Date with Linq

Imports System.IO Imports System.Reflection Imports System.Linq Imports System.Xml.Linq Public Class MainClass    Public Shared Sub Main         Dim y = Year(Now)         Dim m = Month(Now)         Try             Dim MeetingDates(5) As Date             For i = 0 To UBound(MeetingDates)                 MeetingDates(i) = New Date(y, m, CInt((Date.DaysInMonth(y, m) - 1) * Rnd() + 1))             Next             Dim CommonDates = From day2 In MeetingDates _                               Order By day2 _                               Select day2 Distinct             For Each d In CommonDates                 Console.WriteLine(Format(d, "MM/dd/yy"))             Next         Catch ex As Exception             Stop         End Try    End Sub End Class