AccessTr.neT

Tam Versiyon: (tarih parametreleri) sorguda kaçıncı hafta
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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
Metin Kutusunun Veri kaynağına

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

Metin0 Tarih alanın olduğu metin olacak Kolay gelsin
Ç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.
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
Çok teşekkür ederim.
Rica ederim
Sayfalar: 1 2