Date Time VB.Net

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