TextBox larda tarih farkı (tam yıl olarak)

[Erdinç FIRTINA]

DEĞERLİ FORUM ÜYELERİ,

Formül ile yapabildiğim işlemi TextBoxlar üzerinde yapmak istiyorum yardımcı olabilecek herkese şimdiden teşekkürler!

Dosyam ektedir.

FORMÜLLER VE İŞLEM

A1 HÜCRESİ FORMÜL GİRİŞİ =BUGÜN ()
B1 HÜCRESİ TARİH GİRİŞİ 03.03.2003
C1 HÜCRESİ FORMÜL GİRİŞİ =EĞER(A1="";"";ETARİHLİ(A1;BUGÜN();"y"))



AYNI İŞLEMİ TEXTBOXLARLA NASIL YAPABİLİRİM?

Private Sub UserForm_Initialize()
TextBox1 = Format(Date, "dd.mm.yyyy")
End Sub


Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox2.Value) Then
TextBox2.Value = Format(TextBox2.Value, "dd.mm.yyyy")
Else
MsgBox ("Lütfen Tarih Giriniz")
Exit Sub
End If
End Sub
Private Sub UserForm_Initialize()
TextBox1 = Format(Date, "dd.mm.yyyy")
End Sub


TextBox3 te yıl olarak görünmesi mümkün müdür?
Yani TextBox2 den çıkış yaptığımda textbox3 te yıl görünsün

 

[Korhan Ayhan]

Selamlar,

TextBox2 ye ait kodunuzu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsDate(TextBox2.Value) Then
    TextBox2.Value = Format(TextBox2.Value, "dd.mm.yyyy")
    TextBox3 = Format((CDate(TextBox2) - CDate(TextBox1)) / 365.25, "#,##0")
    Else
    MsgBox ("Lütfen Tarih Giriniz")
    Exit Sub
    End If
End Sub

 

[Erdinç FIRTINA]

Sayın Korhan AYHAN,
Size çok teşekkür ederim. Ancak, textbox3 te yılı veriyor ama bir sorun var. Çünkü 1 yıl farkı olması gerekirken 99 yıl farkı gibi bir fark çıkıyor.

Örneğin; TextBox1 de bugünün tarihi var ve textbox2 ye bir yıl öncesindeki bir tarihi yazıyorum ve çıkan sonuç "99" oluyor.

Eğer yardımcı olursanız çok sevinirim.
Şimdiden teşekkürler!!

 

[abdi]

Private Sub CommandButton1_Click()
   If IsDate(TextBox2.Value) Then
    TextBox2.Value = Format(TextBox2.Value, "dd.mm.yyyy")
      
    If TextBox2 > TextBox1 Then
    
    TextBox3 = DateDiff("yyyy", TextBox1, TextBox2)
    Else
    TextBox3 = DateDiff("yyyy", TextBox2, TextBox1)
    End If
    
    
    Else
    MsgBox ("Lütfen Tarih Giriniz")
    Exit Sub
    End If

End Sub

Bu kodları bir butona bağlayıp sonucu denermisiniz.

 

[Erdinç FIRTINA]

Sayın Abdi,
Yardımlarınız için çok çok teşekkürler!!!
Biraz geciktim kusura bakmayın.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu düzelttim incelermisiniz.