[VB] プレミアムフライデー判定

LastFriday.vb

Module LastFriday

    Sub Main()
        Dim target As Date = Today
        Dim nextmonthdayone As Date = New Date(target.Year, target.Month, 1).AddMonths(1)
        If target.DayOfWeek = DayOfWeek.Friday AndAlso
            DateDiff(DateInterval.Day, target, nextmonthdayone) < 7 Then
            Console.WriteLine("PREMIUM FRIDAY")
        Else
            Console.WriteLine(target.DayOfWeek.ToString)
        End If
        Console.ReadLine()
    End Sub
End Module