Imports System

Public Module Module1

    Public Sub Main()

        Dim HourOfYear = 3050

        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!")

        else

            console.writeline("Weekday :(")

        End If

    End Sub

End Module