Tarih Kıyaslama

[badmad34]

Merhaba arkadaşlar,

Eklediğim dosyada bulunan TextBox'a bir tarih girilince, Sayfa1'in "A1" hücresinde bulunan tarihle kıyas yapıp; bu tarihten önceki bir tarih girilirse "ESKİ" Label'ı, bu tarihten sonraki bir tarih girilirse "YENİ" Label'ı gözüksün istiyorum. Nasıl yapabilirim?

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Private Sub CommandButton1_Click()
 
If CDate(Date1_TextBox.Text) > Sheets("Sheet1").[A1] Then
    Label1.Visible = False
    Label2.Visible = True
Else
    Label2.Visible = False
    Label1.Visible = True
End If
 
End Sub

.

 

[badmad34]

Emeğinize sağlık, teşekkür ederim.

 

[Ömer]

Rica ederim, iyi çalışmalar.