Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.

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



    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



Next x





For y = 1 To 14



    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



Next y