Dim DT = New DateTime(2015, 1, 1, 0, 0, 0)
Dim DTOfHOY = DT.AddHours(HourOfYear)
Dim DayOfWeek = DTOfHOY.DayOfWeek
If DayOfWeek = System.DayOfWeek.Sunday Or DayOfWeek = System.DayOfWeek.Saturday Then
Console.Write("Weekend!")
console.writeline("Weekday :(")