>Dim dt As DateTime = New DateTime(YourYear, YourMonth, YourDay) >Dim DayOfYear As Integer = dt.DayOfYear >
>Dim dt As DateTime = New DateTime(2003, 9, 19) >Dim DayOfYear As Integer = dt.DayOfYear >