Mega Code Archive

 

Categories / VB.Net / Date Time

 

Add hours to DateTime

Module Example    Public Sub Main()       Dim hours() As Double = {.66667, 1, 2, 29, 30, 31}       Dim dateValue As Date = #3/1/2009 12:00#       For Each hour As Double In hours          Console.WriteLine("{0} + {1} hour(s) = {2}", dateValue, hour, dateValue.AddHours(hour))       Next                                 End Sub End Module