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