(tarih parametreleri) sorguda kaçıncı hafta

(tarih parametreleri) sorguda kaçıncı hafta - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: (tarih parametreleri) sorguda kaçıncı hafta (/konu-tarih-parametreleri-sorguda-kacinci-hafta.html)

Sayfalar: 1 2

(tarih parametreleri) sorguda kaçıncı hafta - zetyu - 06/01/2010

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

Cvp: (tarih parametreleri) sorguda kaçıncı hafta - Puletin - 06/01/2010

Metin Kutusunun Veri kaynağına

Kod:

=DatePart("ww";[Metin0])

Metin0 Tarih alanın olduğu metin olacak Kolay gelsin

Cvp: (tarih parametreleri) sorguda kaçıncı hafta - zetyu - 06/01/2010

Ç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.

Cvp: (tarih parametreleri) sorguda kaçıncı hafta - Puletin - 07/01/2010

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

Cvp: (tarih parametreleri) sorguda kaçıncı hafta - zetyu - 07/01/2010

Çok teşekkür ederim.

Cvp: (tarih parametreleri) sorguda kaçıncı hafta - Puletin - 07/01/2010

Rica ederim