AccessTr.neT
Bu ay ? Bu yıl ? ( 2 tarih arası ) - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Bu ay ? Bu yıl ? ( 2 tarih arası ) (/konu-bu-ay-bu-yil-2-tarih-arasi.html)



Bu ay ? Bu yıl ? ( 2 tarih arası ) - okileturc - 30/01/2011

İçinde bulunduğunuz gün itibariyle ( Date () )
Bu ayın ik günü ve son gününe veya Bu yılın
ilk ve son gününe hiç ihtiyaç duydunuz mu ?

Ben resimde göreceğiniz combobox yardımı ile
ilk tarih ve son tarih atama uygulamasında buna
ihtiyaç hissettim

[Resim: i1fxia.jpg]

Google ın da yardımı ile aşağıdaki kodlara ulaştım

İçinde bulunduğumuz ayın ilk gün tarihi (01.01.2011 için)

ilktarih=CDate("01/" & Month(Now) & "/" & Year(Now))


İçinde bulunduğumuz ayın son günü tarihi (31.01.2011 için)

sontarih=DateAdd("d", -1, CDate("01/" & Month(Now) + 1 & "/" & Year(Now)))


İçinde bulunduğumuz yılın ilk günü tarihi (01.01.2011 için)

ilktarih=CDate("01/01/" & Year(Now))


İçinde bulunduğumuz yılın son günü tarihi (31.12.2011 için)

sontarih=DateAdd("d", -1, CDate("01/01/" & Year(Now) + 1))

Sistem tarihinizi farklı günlere alıp kodları deneyebilirsiniz, çalışıyorlar Img-grin
Özellikle son tarihleri bulmak için kullanılan "sonraki aya gidip 1 çıkarmak
veya sonraki yıla gidip 1 çıkarmak" metodunu çok eğlenceli buldum.

Kolay gelsin




Cvp: Bu ay ? Bu yıl ? ( 2 tarih arası ) - benremix - 30/01/2011

Sn Okileturc araştırma ve paylaşımınız için tebrik ve teşekkürlerimi sunuyorum
Saygılar...


Cvp: Bu ay ? Bu yıl ? ( 2 tarih arası ) - maytas - 30/01/2011

Paylaşım için teşekkürler Oktay hoca.

Alternatif olarak burada DateSerial fonksiyonu da kullanılabilir.

Mevcut ayın ilk günü:
MsgBox DateSerial(Year(Date), Month(Now), 1)
Mevcut ayın son günü:
MsgBox DateSerial(Year(Date), Month(Now) + 1, 0)
Mevcut yılın ilk günü:
MsgBox DateSerial(Year(Date), 1, 1)
Mevcut yılın son günü:
MsgBox DateSerial(Year(Date) + 1, 1, 0)



Cvp: Bu ay ? Bu yıl ? ( 2 tarih arası ) - okileturc - 30/01/2011

Hemen bakacağım , çok tşk.


Cvp: Bu ay ? Bu yıl ? ( 2 tarih arası ) - okileturc - 30/01/2011

Çok güzel çalışıyor. Kesinlikle çok daha temiz
bir kod olduğu için sizin önerinizi kullanacağım.
Örneği DateSerial kodlarla ekliyorum. Tekrar tşk.




Cvp: Bu ay ? Bu yıl ? ( 2 tarih arası ) - assenucler - 30/01/2011

Bu güzel paylaşım ve katkınız için teşekkürler..