şöyle çözdüm ama acemi işi oldu daha güzel nasıl olabilir

For i = 1 To 12
        If (i = 1 Or i = 3 Or i = 5 Or i = 7 Or i = 8 Or i = 10 Or i = 12) Then aysonu = 31
        If (i = 4 Or i = 6 Or i = 9 Or i = 11) Then aysonu = 30
        If (i = 2 And CInt(y) \ 4 = CInt(y) / 4) Then aysonu = 29
        If (i = 2 And CInt(y) \ 4 <> CInt(y) / 4) Then aysonu = 28
       
        For ii = 1 To aysonu
            dbs.Execute "INSERT INTO " & "year" & y & "" _
                & "(tarih, mod, vardiya) VALUES " _
                & "('" & ii & "." & i & ".20" & y & "', '-1', '.');"
        Next ii
    Next i