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