AccessTr.neT

İç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



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
Ö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

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

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)

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

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

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