AccessTr.neT

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

zetyu

Puletin

zetyu

Puletin

zetyu

Puletin