+- 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ığı: Excel Vba'da Tarih Toplama (/konu-excel-vba-da-tarih-toplama.html)
Sayfalar:
1
2
Excel Vba'da Tarih Toplama - Oğuz Türkyılmaz - 27/09/2021
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
RE: Excel Vba'da Tarih Toplama - atoykan - 27/09/2021
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
RE: Excel Vba'da Tarih Toplama - Oğuz Türkyılmaz - 28/09/2021
(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)RE: Excel Vba'da Tarih Toplama - berduş - 28/09/2021
yine format() ile formatlayacaksınız
RE: Excel Vba'da Tarih Toplama - Oğuz Türkyılmaz - 28/09/2021
(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")RE: Excel Vba'da Tarih Toplama - berduş - 28/09/2021
En basinda
Format(Date+10, "dd.mm.yyyy") kullanmayı denediniz mi