combobox ve label değerlerini tarih formatına çevirmek

[taseraydin]

Combobox ve Label değerlerini birleştirerek Diğer Label e Tarih formatında
yazdırmam gerekiyor bunu kısmen yaptırdım anacak anlamadığın bağzı ayları
yapmadı bir anlamda veremedim
üstad akadaşlar zannedersen soprunu görebilirler veya başka bir alternatif sunabilirler

 

[Ömer]

Merhaba,

Bu şekilde yeterli olacaktır.

Private Sub ComboBox1_Change()
 
    [COLOR=blue]Dim Tarih As String, SonGun As Date[/COLOR]
 
    Tarih = "1." & ComboBox1.ListIndex + 1 & "." & Label118.Caption
    SonGun = DateSerial(Year(Tarih), Month(Tarih) + 1, 0)
    
    TextBox38.Text = Format(SonGun, "dd.mm.yyyy")
    
End Sub

.

 

[taseraydin]

tarih tanımında hata verdi üstadım

 

[Ömer]

Tanımlamalardan olabilir. #2 nolu mesajı yeniden düzenledim.

.

 

[taseraydin]

ilginize çok teşekür ederim..