AccessTr.neT

Tam Versiyon: girilen tarihe göre hafta numarası
Ş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
arkadaşlar kolay gelsin bir sorum olacak
formda tarih girdiğimiz zaman kaçıncı hafta olduğuna başka bir metin kutusuna kendiliğinden yazabilirmiyiz. örneğin 10.01.2009 = hafta 2 olabirmi
teşekkürler
bir metin kutusu içine bu yaz
Kod:
=DatePart("ww";[Metin0])

metin0 tarih girilen kutu bu sana yılın kaçıncı haftası olduğunu verir
Önce değişkenleri tanımlayalım

Kod:
Dim Tarih1 As Date
Dim Mesaj As String

Sonra Tarih1'e yılın ilk gününü atayalım.

Kod:
Tarih1 = "01.01.2009"

Tarih2 değerine de form üzerinden veya başka bir yerden istenen tarih değerini atayalım

Kod:
Tarih2 = "11.01.2009"

”ww” kullanarak değeri hafta olarak istediğimizi belirtelim.

Kod:
Mesaj = DateDiff("ww", Tarih1, Tarih2)


Msg penceresi ile tarih1'den tarih2'ye kadar olan haftaları saydıralım ve ekrana getirelim.

Kod:
MsgBox Mesaj & "Haftadır."

Kolay gelsin. Takıldığınız yerde bana dönün.
Görmedim. Sayın eşrefigit çok daha kolay bir yöntemle yapmış. Ama benim örnekte tarih aralığı saydırıldığı için belki farklı amaçlarda işe yarayabilir. Mesela farklı yıllardan tarihler yazsanız da arada kaç haftsa olduğunu sayacaktır. Belki o da başka bir işe yarar..
arkadaşlar teşekkür ederim. =DatePart("ww";[Metin0]) bunu metin kutusuna yazdığım zaman çıkan haftayı tabloya nasıl kaydederim
Bunu bir denetime bağlayabilirsiniz. Bu durumda formunuzun ana denetim kaynağı bir tablo, alanın denetimi de bu tablonun bir değeri olur. (Mesela alanın adı haftasayisi olsun) O zaman bir olayın ardından şunu yapabilirsiniz:

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

Böylece mesela bir önceki metin kutusunun çıkışına bu kodu yazarsanız ordan çıktığınızda bu kod çalışır.

Kolay gelsin
Mehmet Bey bu haftayı formdan tabloya nasıl kaydedileceğini anlayamadım biraz daha açıklayıcı anlatırsanız çok sevinirim.
Sayfalar: 1 2