Actual date of the year

[RobIII]

Or, for any given year:

Option Explicit
 
Private Sub Form_Load()
    Debug.Print GetDate(1, 2005)   'January 1st   = Day 1, 2005
    Debug.Print GetDate(2, 1999)   'January 2nd   = Day 2, 1999
    Debug.Print GetDate(136)       'May 16th      = Day 136, Current year
    Debug.Print GetDate(365, 2090) 'December 31st = Day 365, 2090
End Sub
 
 
Private Function GetDate(intDayNumber As Integer, Optional intYear As Integer = -1) As Date
    If intYear = -1 Then intYear = Year(Now)
    GetDate = DateAdd("d", intDayNumber - 1, "1/1/" & intYear)
End Function

Now, anything else?