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