+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Textboxlara Default Tarih Atamak. (/konu-textboxlara-default-tarih-atamak.html)
Sayfalar:
1
2
Textboxlara Default Tarih Atamak. - Oğuz Türkyılmaz - 21/06/2022
İyi akşamlar herkese. Formumda İki Textboxım var ve bunların birincisine içinde bulunulan ayın ilk gününün tarihini, ikincisine de içinde bulunulan ayın son gününün tarihini yazdırmak istiyorum. Formu bugün açtığımı farzedersek Textbox1 değeri 01.06.2022 textbox2 nin değerinin de 30.06.2022 olması gerekiyor. Formun initialize yordamına bu textboxlar için nasıl bir kod yazmam gerekiyor. Yardımlarınız için teşekkür ederim.
RE: Textboxlara Default Tarih Atamak. - userx - 21/06/2022
İyi akşamlar. Alttaki kodları dener misiniz?
TextBox1.Value = Format(DateSerial(Year(Date), Month(Date), 1), "dd.mm.yyyy")
TextBox2.Value = Format(DateSerial(Year(Date), Month(Date) + 1, 0), "dd.mm.yyyy")
RE: Textboxlara Default Tarih Atamak. - Oğuz Türkyılmaz - 22/06/2022
(21/06/2022, 23:32)userx yazdı: İyi akşamlar. Alttaki kodları dener misiniz?
TextBox1.Value = Format(DateSerial(Year(Date), Month(Date), 1), "dd.mm.yyyy")
TextBox2.Value = Format(DateSerial(Year(Date), Month(Date) + 1, 0), "dd.mm.yyyy")
Sn.@userx konu birbiriyle çok ilişkili olduğu için konu açmadan sormak istiyorum kusuruma bakmayın. Aynı şekilde bu defa içinde bulunulan hafta için haftayı başlangıç ve bitiş değerleri olarak textboxlarda nasıl gösterebiliriz. Çok çok teşekkür ederim yardımınız için.
RE: Textboxlara Default Tarih Atamak. - userx - 22/06/2022
Dener misin?
TextBox1.Value = Format(Now() - Weekday(Now(), 3), "dd.mm.yyyy")
TextBox2.Value = Format(Now() + Weekday(Now(), 3), "dd.mm.yyyy")RE: Textboxlara Default Tarih Atamak. - Oğuz Türkyılmaz - 22/06/2022
(22/06/2022, 02:03)userx yazdı: Dener misin?
TextBox1.Value = Format(Now() - Weekday(Now(), 3), "dd.mm.yyyy")
TextBox2.Value = Format(Now() + Weekday(Now(), 3), "dd.mm.yyyy")
Sn@userx Pazartesinden Cumaya kadar 5 günü baz aldı. Pazartesinden pazara kadarki 7 günü almasını nasıl sağlarız formülden çıkarım yapamadım.
RE: Textboxlara Default Tarih Atamak. - userx - 22/06/2022
Ben Office 2019 kullanıyorum. Bu kod hafta Pazartesi'den Pazar'a olan tarihi gösteriyor. Eğer sizde hafta sonunu göstermiyorsa
TextBox2.Value = Format(Now() + Weekday(Now(), 3)+2, "dd.mm.yyyy")