Merhaba arkadaşlar,
eklediğim örnekteki gibi bir puantaj yapmak istedim,
malesef yapamadım,
puantaj önceki ayın 15 ile bu ayın 14 arası yapılıyor
hafta içindeki günlere "X" yazması cumartesine "C" pazar gününe "P" harfi atması gerekiyor.
yardımcı olacak arkadaşlara şimdiden teşekkürlerimi sunarım.
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
Sayın ozan hocam öncelikle elinize sağlık,
1 sorun çıktı geçen ay 30 çekince hata veriyor
If Weekday(x & "/" & Format(GGecenAy, "mm") & "/" & Format(GGecenAy, "yyyy")) = 1 Then
bu satırda. ne yapabilirim.?
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
Çok çok teşekkür ederim ozan hocam tam istediğim gibi ellerinize sağlık...
tekrar dosyayı paylaşırmısınız.