by Denis Petrusenko (6 Submissions)
Category: String Manipulation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 27th April 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
List every day in a given year
API Declarations
'
' [ MsgBox DaysIn(2002) ] would return every day in 2002
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