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