looping days in month based year

User avatar
sal21
PlatinumLounger
Posts: 4334
Joined: 26 Apr 2010, 17:36

looping days in month based year

Post by sal21 »

I have a VARYEAR="2020" (var as String dimensioned) but i can have also 2021, 2019... ecc

i need a looping to retrieve all days number for each month in VARYEAR..

Naturally consider Febrary month (28 or 29 Days)

how to?

User avatar
HansV
Administrator
Posts: 78236
Joined: 16 Jan 2010, 00:14
Status: Microsoft MVP
Location: Wageningen, The Netherlands

Re: looping days in month based year

Post by HansV »

Please explain in more detail what you want the code to do.
Best wishes,
Hans

User avatar
sal21
PlatinumLounger
Posts: 4334
Joined: 26 Apr 2010, 17:36

Re: looping days in month based year

Post by sal21 »

HansV wrote:
27 May 2020, 09:55
Please explain in more detail what you want the code to do.
pseudo code...

Code: Select all

for i=1 to 12
for x=1 to number of days in current month in i
debug.print number of day
next x
next i
thats is all

User avatar
HansV
Administrator
Posts: 78236
Joined: 16 Jan 2010, 00:14
Status: Microsoft MVP
Location: Wageningen, The Netherlands

Re: looping days in month based year

Post by HansV »

Code: Select all

Sub Test()
    Dim VARYEAR As String
    Dim i As Long
    Dim x As Long
    VARYEAR = "2020"
    For i = 1 To 12
        For x = 1 To Day(DateSerial(VARYEAR, i + 1, 0))
            Debug.Print x
        Next x
    Next i
End Sub
Best wishes,
Hans

snb
4StarLounger
Posts: 548
Joined: 14 Nov 2012, 16:06

Re: looping days in month based year

Post by snb »

Code: Select all

Sub M_snb()
    MsgBox Join([transpose(text(date(2020,1,row(1:365)),"dd-mm-yyyy"))], vbLf)
End Sub