private sub textbox9_change()
a = TextBox9
If TextBox9 = "" Then a = 0
TextBox7.Value = DateAdd("d", a, TextBox6)
Exit Sub
kodda tarih ile eklenecek günü toplayınca doğru sonuç (dd.mm.yyyy)veriyor. Fakat 30 veya 60 yazınca formatı (mm.dd.yyyy) çeviriyor.
30,31,32,33,34,35,36,37,38 de (mm.dd.yyyy) olarak yazıyor. 39 yazınca (dd.mm.yyyy) formatına dönüştürüyor. Problem nerden kaynaklanıyor olabilir.Yardım eden herkese şimdiden teşekkürler:yardim:
a = TextBox9
If TextBox9 = "" Then a = 0
TextBox7.Value = DateAdd("d", a, TextBox6)
Exit Sub
kodda tarih ile eklenecek günü toplayınca doğru sonuç (dd.mm.yyyy)veriyor. Fakat 30 veya 60 yazınca formatı (mm.dd.yyyy) çeviriyor.
30,31,32,33,34,35,36,37,38 de (mm.dd.yyyy) olarak yazıyor. 39 yazınca (dd.mm.yyyy) formatına dönüştürüyor. Problem nerden kaynaklanıyor olabilir.Yardım eden herkese şimdiden teşekkürler:yardim: