• Home
 · 
• String Manipulation
 · 
• List every day in a given year

List every day in a given year

List every day in a given year

API Declarations


'
' [ MsgBox DaysIn(2002) ] would return every day in 2002



Rate List every day in a given year

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 For m = 1 To 12
  For d = 1 To Day(DateAdd("d", -1, DateSerial(y, m + 1, 1)))
   diy = diy & m & "/" & d & "/" & y & VbNewLine
  Next
 Next
End Function