Module Example
Public Sub Main()
Dim today As System.DateTime
Dim answer As System.DateTime
today = System.DateTime.Now
answer = today.AddDays(36)
System.Console.WriteLine("{0:dddd}", answer)
End Sub
End Module