×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Contact US

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

LOOPING day in month by year

LOOPING day in month by year

LOOPING day in month by year

(OP)
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....

RE: LOOPING day in month by year

What did you try?

Hint - check a DateSerial function

You may also try this

---- Andy

There is a great need for a sarcasm font.

RE: LOOPING day in month by year

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

Provide your own Year and Month:

CODE

Const intYear As Integer = 2020
Const intMonth As Integer = 1
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.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close