Tarih vade toplama (Acil Lütfen)

[mekuka]

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:

 

[Necdet]

Merhaba,

Private Sub textbox9_change()
a = TextBox9
If TextBox9 = "" Then a = 0
TextBox7.Value = Format(DateAdd("d", a, TextBox6), "[B][COLOR=red]dd,aa,yyyy[/COLOR][/B]")
Exit Sub

formatı kullanmalısınız ama yukarıdaki kırmızı olan formatta türkçe mi kullanılıyordu yoksa ingilizce mi ("dd,mm,yyyy") şeklinde olmalı tam anımsayamadım. denersiniz artık

Sanırım ingilizce format geçerli.

 

[mekuka]

Private Sub textbox9_change()
a = TextBox9
If TextBox9 = "" Then a = 0
TextBox7.Value = Format(DateAdd("d", a, TextBox6), "dd.mm.yyyy dddd")
Exit Sub

komutu üstteki şekilde düzenledim işime yaradı...
çok teşekkür ederim necdet_yesertener