Option Strict On Public Module DateAddTest Public Sub Main() Console.WriteLine(DateAdd(DateInterval.Hour, 36, Date.Now)) Console.WriteLine(DateAdd(DateInterval.Hour, -36, Date.Now)) End Sub End Module
13/05/2007 9:17:01 AM 10/05/2007 9:17:01 AM