AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

(tarih parametreleri) sorguda kaçıncı hafta

1 2
06/01/2010, 19:34

zetyu

Sorguda weekday ile kaçıncı gün olduğunu bulabiliyorum.

kacıncı_haftası: weekday([tarih_odenecek])

Ama benim amacım ayın yada yılın kaçıncı haftası olduğunu bulmak.

Yani: 06,01,2010 kaçıncı haftadır.

Kaçıncı ay,kaçıncı gün vs örnek ve açıklamalar var ama hafta ile ilgili bulamadım gözden kaçırdıysam kusara bakmayın.
İlginize ve yardımlarınıza şimdiden çok teşekkür ederim
06/01/2010, 19:57

Puletin

Metin Kutusunun Veri kaynağına

Kod:
=DatePart("ww";[Metin0])

Metin0 Tarih alanın olduğu metin olacak Kolay gelsin
06/01/2010, 21:39

zetyu

Çok teşekkür ederim.
Bu şekilde tarihin yılın kaçıncı haftası olduğunu görüyorum sayenizde.
peki metin0 daki tarihin ayın kaçıncı haftası olduğunu nasıl görebilirim.
07/01/2010, 13:13

Puletin

Bu Vba kodu ile hazırlanmıştır

Girilen Tarih=Metin0 Haftasayısı=Metin2 olsun

Metin0 ın güncelleme sonrasına bunu

Kod:
Private Sub Metin0_AfterUpdate()
Dim A, B As Date
Dim C, D As Integer
A = Me.Metin0
B = DateSerial(Year(A), Month(A), 1)
C = DatePart("ww", (A))
D = DatePart("ww", (B))
Me.Metin2 = (C - D) + 1
End Sub

yazınız Metin2 de sonucu görünüz


Veya Form üzerinde
yapmak isterseniz
Tarih=Metin0
Girilen ayın ilk günü=Metin2
GirilenTarih yılın kaçıncı haftası=Metin4
Girilen ayın ilk günü yılın kaçıncı haftası=Metin6
AyınHaftası=Metin8
diyelim

Şimdi

Kod:
Metin0=tarih
Metin2=DateSerial(Year([Metin0]);Month([Metin0]);1)
Metin4=DatePart("ww";[Metin0])
Metin6=DatePart("ww";[Metin2])
Metin8=Metin4-Metin6+1

Metin0 a değer girdiktensonra Metin8 gerekli sonucu gösterecektir
07/01/2010, 18:52

zetyu

Çok teşekkür ederim.
07/01/2010, 19:51

Puletin

Rica ederim
1 2