function kacincihafta(tarih)
dim ayingunu
dim sonuc
ayingunu =Day(tarih)
select case ayingunu
case 1 to 7
sonuc = 1
case 8 to 14
sonuc =2
case 15 to 21
sonuc =3
case 22 to 28
sonuc =4
case 28 to 31
sonuc =5
end select
kacincihafta=sonuc
End function
--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 20:14:40 -->-> Daha önceki mesaj 20:06:15 --
bazı günler bölerek elde edilemiyor. yani haftaya denk gelmiyor. uzun uzadıya kod yazmak gerekiyor her gün için ayrı ayrı. yıldaki gibi kısa bi kodlama varmı onu öğrenecektim.
yaz bi function kurtul, 7 ye bölerek o iş olmaz.