I just did a test sample. I should of done this in the first place....
Dim num(10) As Integer
num(0) = DateAndTime.DatePart(DateInterval.Day, Now) 'day
num(1) = DateAndTime.DatePart(DateInterval.DayOfYear, Now)
'DayofYear
num(2) = DateAndTime.DatePart(DateInterval.Hour, Now) 'Hour
num(3) = DateAndTime.DatePart(DateInterval.Minute, Now) 'Minute
num(4) = DateAndTime.DatePart(DateInterval.Month, Now) 'Month
num(5) = DateAndTime.DatePart(DateInterval.Quarter, Now)
'Quarter
num(6) = DateAndTime.DatePart(DateInterval.Second, Now) 'Second
num(7) = DateAndTime.DatePart(DateInterval.Weekday, Now)
'Weekday
num(8) = DateAndTime.DatePart(DateInterval.WeekOfYear, Now)
'WeekOfYear
num(9) = DateAndTime.DatePart(DateInterval.Year, Now) 'year
'Dim numArray1 As Integer() = New Integer(13 - 1) {}
'numArray1(0) = DateAndTime.DatePart(4, DateAndTime.get_Now, 1,
1)
'numArray1(1) = DateAndTime.DatePart(3, DateAndTime.get_Now, 1,
1)
'numArray1(2) = DateAndTime.DatePart(7, DateAndTime.get_Now, 1,
1)
'numArray1(3) = DateAndTime.DatePart(8, DateAndTime.get_Now, 1,
1)
'numArray1(4) = DateAndTime.DatePart(2, DateAndTime.get_Now, 1,
1)
'numArray1(5) = DateAndTime.DatePart(1, DateAndTime.get_Now, 1,
1)
'numArray1(6) = DateAndTime.DatePart(9, DateAndTime.get_Now, 1,
1)
'numArray1(7) = DateAndTime.DatePart(6, DateAndTime.get_Now, 1,
1)
'numArray1(8) = DateAndTime.DatePart(5, DateAndTime.get_Now, 1,
1)
'numArray1(9) = DateAndTime.DatePart(0, DateAndTime.get_Now, 1,
1)