AccessTr.neT

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

İ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")

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

Dener misin?

TextBox1.Value = Format(Now() - Weekday(Now(), 3), "dd.mm.yyyy")

TextBox2.Value = Format(Now() + Weekday(Now(), 3), "dd.mm.yyyy")

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

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")

olarak dener misiniz?