Konu açıklaması biraz kısır oldu ama yapmak istediğimi şöyle açıklayayım. Bir formun üzerinde 2 textbox'ım var. Normalde
Excel hücresinde =Bugün + 10 formülünü yazdığınızda o hücreye o günden itibaren 10 gün sonrasının tarihini atıyor. Ben bu işlemi aşağıdaki koda nasıl uyarlayabilirim. Textbox_Tarih değerine 10 ekleyip çıkan tarihi TextBox_Geçerlilik tarihine atamak istiyorum. Yardımlarınız için teşekkür ederim.
TextBox_TeklifGecerlilikTarihi.Value = TextBox_Tarih.Value + 10
Merhaba Oğuz Bey
DateAdd ile yapabilirsiniz.
TextBox_TeklifGEcerlilikTArihi = Dateadd("d", 10, TextBox_Tarih.value)
"d" gün için, "m" ay için, "yyyy" yıl için kullanılır
(27/09/2021, 23:27)atoykan yazdı: [ -> ]Merhaba Oğuz Bey
DateAdd ile yapabilirsiniz.
TextBox_TeklifGEcerlilikTArihi = Dateadd("d", 10, TextBox_Tarih.value)
"d" gün için, "m" ay için, "yyyy" yıl için kullanılır
@
atoykan hocam cevabınız için teşekkür ederim. Kodunuz doğru çalışıyor fakat sonucu İngiliz sistemine göre gösteriyor. Bugünün tarihinden itibaren hesapladığında Textbox'da 08.10.2021 şeklinde göstereceği yerde 10.08.2021 şeklinde gösteriyor. Formatlama kodum da aşağıda. Formatı nasıl değiştirmem lazım.
Kod:
TextBox_Tarih.Value = Format(Date, "dd.mm.yyyy")
TextBox_TeklifGecerlilikTarihi.Value = Format(Date, "dd.mm.yyyy")
TextBox_TeklifGecerlilikTarihi = DateAdd("d", 10, TextBox_Tarih.Value)
yine format() ile formatlayacaksınız
(28/09/2021, 13:41)berduş yazdı: [ -> ]yine format() ile formatlayacaksınız
@
berduş formatı tekrar formatlayarak doğru sonuca ulaştım ama bunun başka bir yöntemi yok mu yada doğru sonuç almama rağmen işin doğrusu farklı bir kod mu ?
Kod:
TextBox_TeklifGecerlilikTarihi.Value = Format(DateAdd("d", 10, TextBox_Tarih.Value), "dd.mm.yyyy")
En basinda
Format(Date+10, "dd.mm.yyyy") kullanmayı denediniz mi