(16/04/2022, 16:39)berduş yazdı: If k <> hftgn And say = 0 Then m = m + 1
buradaki k ne için?
İnternetten bulup uyarladığım için bilmiyorum ne yazık ki. Ama k ile olunca 8 olarak sayıyor diye forumlarda bilgi var çözmeye çalışıyorum hala.
Resim 1: https://imgyukle.com/i/RC0wi8
Resim 2 :https://imgyukle.com/i/RC0AVo
Resim 3: https://imgyukle.com/i/RC0fCn
Resim 4: https://imgyukle.com/i/RC00tj
Resim 5: https://imgyukle.com/i/RC0dOU
Resim 6: https://imgyukle.com/i/RC066h
(16/04/2022, 16:51)merttr07 yazdı:(16/04/2022, 16:39)berduş yazdı: If k <> hftgn And say = 0 Then m = m + 1
buradaki k ne için?
İnternetten bulup uyarladığım için bilmiyorum ne yazık ki. Ama k ile olunca 8 olarak sayıyor diye forumlarda bilgi var çözmeye çalışıyorum hala.
Resim 1: https://imgyukle.com/i/RC0wi8
Resim 2 :https://imgyukle.com/i/RC0AVo
Resim 3: https://imgyukle.com/i/RC0fCn
Resim 4: https://imgyukle.com/i/RC00tj
Resim 5: https://imgyukle.com/i/RC0dOU
Resim 6: https://imgyukle.com/i/RC066h
(16/04/2022, 16:39)berduş yazdı: If k <> hftgn And say = 0 Then m = m + 1
buradaki k ne için?
ReDim gunler(7)
Dim k As Integer, i As Integer, m As Integer, gun As Integer, hftgn As Integer, say As Integer
Dim trh As Date
gunler = Array("Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi", "Pazar")
For k = 1 To 7
Burayla alakalı ola bilirmi