#4
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"
| Bu Konudaki Yorumlar |
|
İki Tarih Arası Günü Ondalıklı Yazdırma - Yazar: abahceci - 13/04/2014, 21:51
Cvp: İki Tarih Arası Günü Ondalıklı Yazdırma - Yazar: ozanakkaya - 15/04/2014, 23:51
Cvp: İki Tarih Arası Günü Ondalıklı Yazdırma - Yazar: abahceci - 19/04/2014, 19:57
Cvp: İki Tarih Arası Günü Ondalıklı Yazdırma - Yazar: ozanakkaya - 14/04/2014, 14:56
Cvp: İki Tarih Arası Günü Ondalıklı Yazdırma - Yazar: abahceci - 14/04/2014, 18:55
Cvp: İki Tarih Arası Günü Ondalıklı Yazdırma - Yazar: abahceci - 14/04/2014, 22:45
|
