Sub AyGunHesapla()
Dim Dizi As Variant
Dizi = Split(Metin24, " ")
Me.Liste1.RowSource = ""
For say = LBound(Dizi) To UBound(Dizi)
Me.Liste1.AddItem Dizi(say)
Me.PFS = Me.Liste1.ItemData(1) + (Me.Liste1.ItemData(2) / 30)
a = Me.Liste1.ItemData(0)
b = Me.Liste1.ItemData(1)
c = Me.Liste1.ItemData(2)
Me.Metin1 = a & " yıl " & b & " ay " & c & " gün"
Sayın ozanakkaya, tekrar teşekkür ederim...