LOOPING day in month by year 1

[sal21]

Admit have MyVarYear=2020

how to looping all date days in the 12 month...

pseudo code

first month
01/01/2020
02/01/2020
...
31/01/2020
second month
01/02/2020
02/02/2020
...
29/02/2020

ecc....

 

[Andrzejek]

What did you try?

Hint - check a DateSerial function

You may also try this

---- Andy

There is a great need for a sarcasm font.

 

[Andrzejek]

OK, I had a few minutes to kill...

Provide your own [red]Year[/red] and [red]Month[/red]:

Const intYear As Integer = [red]2020[/red]
Const intMonth As Integer = [red]1[/red]
Dim intD As Integer
Dim dat As Date

intD = 1

dat = DateSerial(intYear, intMonth, intD)

Do While Month(dat) = intMonth
    Debug.Print dat & " -- " & Format(dat, "Long Date")
    intD = intD + 1
    dat = DateSerial(intYear, intMonth, intD)
Loop

Debug.Print "  ***  I am done, happy now?  ***"

---- Andy

There is a great need for a sarcasm font.