Puantaj Yapmak - ates2014 - 04/11/2019
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.
Cvp: Puantaj Yapmak - ozanakkaya - 04/11/2019
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
Cvp: Puantaj Yapmak - ates2014 - 04/11/2019
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.?
Cvp: Puantaj Yapmak - ozanakkaya - 04/11/2019
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
Cvp: Puantaj Yapmak - ates2014 - 04/11/2019
Çok çok teşekkür ederim ozan hocam tam istediğim gibi ellerinize sağlık...
RE: Puantaj Yapmak - ftanrik - 25/02/2021
tekrar dosyayı paylaşırmısınız.
|