LIST ALL DAYS IN YEAR

[sal21]

I'm not sure of this code...
my dubt is based on Febrary...

anno=2026

Code: Select all

Sub ListDaysInMonth()

    Dim iMonth As Integer
    Dim iYear As Integer
    Dim FirstDayOfMonth As Date
    Dim LastDayOfMonth As Date
    Dim dDate As Date, K As Integer

    iMonth = 1
    iYear = ANNO
    K = 1

    FirstDayOfMonth = DateSerial(iYear, iMonth, 1)
    LastDayOfMonth = DateSerial(iYear, 12 + 1, 0)

    For dDate = FirstDayOfMonth To LastDayOfMonth
        GIORNO = UCase(Format(dDate, "DDDD"))
        SQL = "INSERT INTO CALENDARIO (GIORNI, GIORNO, NR) VALUES ('" & dDate & "', '" & GIORNO & "', '" & K & "')"
        CON.Execute SQL, , adCmdText + adExecuteNoRecords
        K = K + 1
    Next

End Sub

[HansV]

It will handle February correctly. Your variables FirstDayOfMonth and LastDayOfMonth are actually the first day and last day of the year, not of a month.

[sal21]

It will handle February correctly. Your variables FirstDayOfMonth and LastDayOfMonth are actually the first day and last day of the year, not of a month.

PLEASE...
eXPLAIN ME the part of dateserial format...

.Text = Format(DateSerial(ANNO, M, D), "short date")

note:
googling

[SpeakEasy]

https://docs.microsoft.com/en-us/office ... plications

Go to the 'Named date/time formats' section

[HansV]

And see DateSerial function.

"short date" is the Short Date format set on your computer in the Region control panel. In Italy, it probably looks like "27/09/2022".
"long date" is the Long Date format set in the Region Control panel. It might look like "27 settembre 2022", or perhaps "martedi 27 settembre 2022".

[sal21]

And see DateSerial function.

"short date" is the Short Date format set on your computer in the Region control panel. In Italy, it probably looks like "27/09/2022".
"long date" is the Long Date format set in the Region Control panel. It might look like "27 settembre 2022", or perhaps "martedi 27 settembre 2022".

clear!
tks