AccessTr.neT
Textboxlara Default Tarih Atamak. - Baskı Önizleme

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


RE: Textboxlara Default Tarih Atamak. - Oğuz Türkyılmaz - 22/06/2022

(22/06/2022, 11:20)userx yazdı: 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?

@userx hocam ben 365 e terfi ettim etmez olaydım. İlk fırsatta deneyip bilgi vereceğim teşekkür ederim.


RE: Textboxlara Default Tarih Atamak. - berduş - 22/06/2022

@user hocama alternatif olarak aşağıdaki kodlar da kullanılabilir
Ufak bir bilgi
cdate(1)=31 aralık 1899 pazar (pazar 1. gündür, türkiyede ise pazartesi dolayısıyla weekday(Trh,2) yazılır)
x=Tarih mod 7
x ==>
0 : Cumartesi
1 : Pazar
2 : pazartesi
3 : salı
4 : çarşamba
5 : perşembe
6 : cuma
hafta başı - pazartesi
date-(date mod 7 -2)
hafta sonu - pazar
date +(8-(date mod 7) )