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