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