LIST DAYS

[sal21]

Based the month(date) and year(date), how to list the days of a block of 3 month...for example:


month(date) August
year(date) 2022

list the days of

August
September
October

01/08/2022
...
30/10/2022

===============

month(date) January
year(date) 2022

list the days of

January
February
March

01/01/2022
...
31/03/2022

[HansV]

Do you want to input the month by its name (August or Agosto), or by its number (8)?

[sal21]

Do you want to input the month by its name (August or Agosto), or by its number (8)?

its number

[HansV]

Perhaps you can use this as a starting point.

Code: Select all

Sub ListDates()
    Dim ANNO As Long
    Dim MESE As Long
    Dim DATO As Date
    ANNO = 2022
    MESE = 8
    For DATO = DateSerial(ANNO, MESE, 1) To DateSerial(ANNO, MESE + 3, 0)
        ' Do something with DATO, for example
        Debug.Print DATO
    Next DATO
End Sub

[sal21]

Perhaps you can use this as a starting point.

Code: Select all

Sub ListDates()
    Dim ANNO As Long
    Dim MESE As Long
    Dim DATO As Date
    ANNO = 2022
    MESE = 8
    For DATO = DateSerial(ANNO, MESE, 1) To DateSerial(ANNO, MESE + 3, 0)
        ' Do something with DATO, for example
        Debug.Print DATO
    Next DATO
End Sub