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