11/02/2009, 17:19
girilen tarihe göre hafta numarası
1 2
11/02/2009, 19:16
esrefigit
bir metin kutusu içine bu yaz
metin0 tarih girilen kutu bu sana yılın kaçıncı haftası olduğunu verir
Kod:
=DatePart("ww";[Metin0])
metin0 tarih girilen kutu bu sana yılın kaçıncı haftası olduğunu verir
11/02/2009, 19:23
mehmetdemiral
Önce değişkenleri tanımlayalım
Sonra Tarih1'e yılın ilk gününü atayalım.
Tarih2 değerine de form üzerinden veya başka bir yerden istenen tarih değerini atayalım
”ww” kullanarak değeri hafta olarak istediğimizi belirtelim.
Msg penceresi ile tarih1'den tarih2'ye kadar olan haftaları saydıralım ve ekrana getirelim.
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..
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..
12/02/2009, 00:11
hanedan0812
arkadaşlar teşekkür ederim. =DatePart("ww";[Metin0]) bunu metin kutusuna yazdığım zaman çıkan haftayı tabloya nasıl kaydederim
12/02/2009, 00:59
mehmetdemiral
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:
Böylece mesela bir önceki metin kutusunun çıkışına bu kodu yazarsanız ordan çıktığınızda bu kod çalışır.
Kolay gelsin
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
28/03/2009, 17:43
cellchuck
Mehmet Bey bu haftayı formdan tabloya nasıl kaydedileceğini anlayamadım biraz daha açıklayıcı anlatırsanız çok sevinirim.
1 2