Bu ay ? Bu yıl ? ( 2 tarih arası )
Tarih
30/01/2011 09:40
Konu Sahibi
okileturc
Yorumlar
5
Okunma
2586
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



okileturc
Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
İç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

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)

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



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

Visual Basic Code
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)

Visual Basic Code
ilktarih=CDate("01/01/" & Year(Now))



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

Visual Basic Code
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



Ek Dosyalar
.rar   buay_buyıl.rar (Dosya Boyutu: 37,29 KB / İndirme Sayısı: 113)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.431
17/05/2009
365
Ankara
Ofis 2010
02/12/2016,21:35
Sn Okileturc araştırma ve paylaşımınız için tebrik ve teşekkürlerimi sunuyorum
Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla


maytas
Aktif Üye
Kullanici Avatari
Aktif Üye
545
21/12/2008
173
Bursa
Ofis 2010 32 Bit
27/09/2015,02:03
Paylaşım için teşekkürler Oktay hoca.

Alternatif olarak burada DateSerial fonksiyonu da kullanılabilir.

Mevcut ayın ilk günü:

Visual Basic Code
MsgBox DateSerial(Year(Date), Month(Now), 1)

Mevcut ayın son günü:

Visual Basic Code
MsgBox DateSerial(Year(Date), Month(Now) + 1, 0)

Mevcut yılın ilk günü:

Visual Basic Code
MsgBox DateSerial(Year(Date), 1, 1)

Mevcut yılın son günü:

Visual Basic Code
MsgBox DateSerial(Year(Date) + 1, 1, 0)

Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
resim
Cevapla


okileturc
Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
Hemen bakacağım , çok tşk.
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


okileturc
Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
Ç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.



Ek Dosyalar
.rar   buay_buyıl_maytas.rar (Dosya Boyutu: 39,48 KB / İndirme Sayısı: 53)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


assenucler

Kullanici Avatari
Onursal
A.... S.... Ş....
2.052
31/10/2008
63
İstanbul
-
29/11/2016,00:04
Bu güzel paylaşım ve katkınız için teşekkürler..
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  İki Tarih Arası Gün Ay Yıl Hesaplama ozanakkaya 29 40.420 29/08/2015, 02:47 ozanakkaya
  menü ile veri tabanları arası gezinti2 hgsoftware 7 2.024 12/03/2013, 10:34 hgsoftware
  Tarih boşsa tablodaki en büyük değeri getirsin accessman 2 1.427 17/04/2012, 14:59 DUAYEN
  Seçmeli Kutular Arası Şifre Uygulaması HandSword 4 2.277 08/07/2011, 15:56 sadikkavakli
  Tarih Seçme Kutusu(Saatli) Coskun0559 5 3.269 22/12/2010, 12:22 Coskun0559


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya