Soru Tarihten Sadece Gün ve Ayı Alma

[TURKOLOG]

Herkese Merhaba Arkadaşlar

Textbox1 de tarih var
Textbox1 tarih formatı misal. 28.06.2020 şeklinde

Benim istediğim

ComboButton yardımı ile
textbox1 de olan Gün ve Ay eğer 16.10 yani 16 Ekime eşit veya 16 Ekimden büyük ise ( yıl hiç önemli değil yıla bakmayacak )
Label65 de Tahditli Personel yazacak. 15 Ekim ve 15 Ekimden küçük ise Tahdit Yok yazacak
Ve combobox4 de olan rakam kaçsa o kadar yıl ekleyip Label66 da o tarihi yazacak

Örnek 1
Textbox1 de 16.10.2019 yazıyorsa
Label 65 de Tahditli Personel yazacak
Combobox4 de 3 seçildiğini kabul edersek
Label 66 da 16.10.2022 yazacak.


Örnek 2
Textbox1 de 25.10.2022 yazıyorsa
Label 65 de Tahditli Personel yazacak
Combobox4 de 3 seçildiğini kabul edersek
Label 66 da 25.10.2025 yazacak.

Örnek 3
Textbox1 de 15.10.2015 yazıyorsa
Label 65 de Tahdit Yok yazacak
Combobox4 de 3 seçildiğini kabul edersek
Label 66 da 15.10.2018 yazacak.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Private Sub CommandButton1_Click()
Dim trh As Date
trh = DateValue(TextBox1)
If DateSerial(2020, Month(trh), Day(trh)) >= DateSerial(2020, 10, 16) Then
    Label65.Caption = "Tahditli Personel"
Else
    Label65.Caption = "Tahdit Yok"
End If
If ComboBox4.Value = "" Then ComboBox4.Value = 0
Label66.Caption = DateAdd("YYYY", ComboBox4, trh)
End Sub

 

[TURKOLOG]

Hocam elinize emeğinize sağlık kod çalıştı.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...