Tarih hesaplama

[KAPLAN381]

Texbox1'e yazdığım tarihi texbox2'ye -1 gün olarak otomatik yazmasını istiyorum.
Bu konu da yardıma ihtiyacım var teşekkürler.
örnek olarak 14.11.2016 yazdığımda texbox2'ye 13.11.2016 değerini otomatik atacak

 

[hımmmmmmmm]

Private Sub TextBox1_Change()
On Error GoTo HATA
If Len(TextBox1) = 10 Then
    TextBox2 = Format(DateAdd("d", -1, TextBox1), "dd.mm.yyyy")
End If
Exit Sub
'----------------------
HATA:
TextBox2 = "Hata.."
End Sub

 

[KAPLAN381]

private sub textbox1_change()
on error goto hata
ıf len(textbox1) = 10 then
    textbox2 = format(dateadd("d", -1, textbox1), "dd.mm.yyyy")
end ıf
exit sub
'----------------------
hata:
Textbox2 = "hata.."
end sub

uygulamsını yaptım ama bir değişiklik olmadı TARİH ATMIYOR

 

[Necdet]

Merhaba,

Tarihi girerken 1/1/16 gibi giriniz aşağıdaki kod hem Textbox1'i hem 2'yi düzeltecektir.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    TextBox2.Value = Format(CDate(TextBox1.Value) - 1, "dd.mm.yyyy")
    TextBox1.Value = Format(CDate(TextBox1.Value), "dd.mm.yyyy")
    
End Sub

 

[hımmmmmmmm]

tarih girişleri gg.aa.yyyy veya gg/aa/yyyy şeklinde girmeyi dene...