Kodu aşağıdaki ile değiştirerek deneyiniz.

Dim GTarih As Date

Dim GGecenAy, GBuAy, x, y As Integer



GTarih = Date



GGecenAy = DateSerial(Year(GTarih), Month(GTarih) - 1, 1)

GBuAy = DateSerial(Year(GTarih), Month(GTarih), 1)



Me.Metin125 = MonthName(Format(GGecenAy, "mm"))

Me.Metin127 = MonthName(Format(GBuAy, "mm"))



For x = 15 To 31



    Controls("a" & x) = ""

    

    If IsDate(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = True Then

        If Weekday(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = 1 Then

            Controls("a" & x) = "P"

        ElseIf Weekday(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = 7 Then

            Controls("a" & x) = "C"

        Else

            Controls("a" & x) = "X"

        End If

    End If

Next x





For y = 1 To 14

    

    Controls("a" & y) = ""

    

    If IsDate(y & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = True Then

        If Weekday(y & "/" & Format(GBuAy, "mm") & "/" & Format(GBuAy, "yyyy")) = 1 Then

            Controls("a" & y) = "P"

        ElseIf Weekday(y & "/" & Format(GBuAy, "mm") & "/" & Format(GBuAy, "yyyy")) = 7 Then

            Controls("a" & y) = "C"

        Else

            Controls("a" & y) = "X"

        End If

    End If



Next y