Textbox1 deki tarih ve Textbox2 deki sayıyı Textbox3te top

[mühendis^^]

formun bütün yönetici ve üyelerine iyi akşamlar userform üzerinde bir tane textbox1 var ona yazacağım tarih diyelim 10.11.2005 textbox2 deyeri gün yani 38 olacak textbox3 e textbox1 ve textbox2 nin toplamının 1 eksiğine karşılık gelen tarihi nasıl yazdırabilirim.
textbox3 formatı tarih olacak.
teşekkür ederim.

 

[Levent Menteşoğlu]

Textbox1 ve Textbox2ye aşağıdaki kodları yazarak deneyin.

[vb:1:6809d5ef4b]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "dd"".""mmmm"".""yy")
End Sub

Private Sub TextBox2_Change()
On Error Resume Next
TextBox3 = Format(CDate(TextBox1) + TextBox2-1, "dd"".""mmmm"".""yy")
End Sub
[/vb:1:6809d5ef4b]

 

[mühendis^^]

sn:Levetm verdiyiniz kodları denedim ama textbox3 boş kalıyor bunu bir command butona bağlayıp tamı işlem yaptıracam textbox1 e tarih textbox2 ye rakam giriyor toplayı9m bunlara karşılık gelen tarihi textbox3 yazmıyor olmadı textbox 3 hala boş kalıyor .şu an bir hakediş programı yapmaya çalışıyorum kendimce işin verilen süreye göre bitim tarihini bulacam.Yardımını bekliyorum bu ilgin için saolasın.

 

[Korhan Ayhan]

Ekteki örneği inceleyiniz...

 

[mühendis^^]

COST_CONTRTOL ekte örnek yok örneği gönderirseniz memnun olacam sağolun bekliyorum.tşk. :yardim:

 

[Korhan Ayhan]

Buyrun.

 

[mühendis^^]

sn:COST-CONTROL ekteki örneğinizi inceledim emeğiniz ve ilginmiz için sağolun ama textbox1 e 10.11.2005 tarih textbox2 ye rakam mesela 30 girip hesapla dediyimde Run time error "13" hatası veriyor çalışmıyor yani neden acaba çözebilirsek çok hoş olacak. lütfen yardım??

 

[mühendis^^]

sn: COST_CONTROL bölge ve dil ayarlarında tarih formatım / şeklinde olduğu içinmiş sorun çok sağolasın eline ve emeğine sağlık sorunsuz çalışıyor oldu
sn:leventm sizede ilginiz için teşekkür ediyorum iyi akşamlar her şey gönlünüzce olsun.

 

[Korhan Ayhan]

Rica ederim. (Bende hata denetimi ekledim.) Dosyayı güncelledim.