Ustam eline koluna sağlık.
Hakkınızı helal edin. Var olasınız
Rica ederim
İyi çalışmalar)
Kodları denediniz değil mi?
Çıkarma fonksiyonu dahil hepsi çalıştı mı?
Ustam mükemmel çalıştı. Tekrar elleriniz kollarınıza sağlık.
Kod:
Function TrhTopla()
Dim Sure1, Sure2
Sure1 = Split(Trim(TextBox7), " ")
Sure2 = Split(Trim(TextBox9), " ")
TSon = (CLng(Sure1(0)) + CLng(Sure2(0))) * 365 + (CLng(Sure1(2)) + CLng(Sure2(2))) * 30 + (CLng(Sure1(4)) + CLng(Sure2(4)))
TextBox11 = TrhDagit(TSon)
' Debug.Print TSon, CLng(Sure1(0)) + CLng(Sure2(0)), CLng(Sure1(2)) + CLng(Sure2(2)), CLng(Sure1(4)) + CLng(Sure2(4))
End Function
Sadece meraktan soruyorum.
Yıl, ay, gün nasıl ayırılır?
Textbox30 için yıl
Textbox31 için ay
Textbox32 için gün gibi
Belki ileri safhalarda önüme böyle bir sorun çıkarsa en azından elimde bulunur
(20/03/2021, 22:37)malatyalı yazdı: Yıl, ay, gün nasıl ayırılır?
anlamadım?
TrhDagit fonksiyonunda var aslinda
Ustam
TSon ile gün sayısını
Fix((GunSay - Yil * 365) / 30) ile tılı ayıracağım doğru mu?
Ustam Tamamdır.
Fix((TSon - Yil * 365) şekli ile buldum
Yil = Fix(GunSay / 365)
Ay = Fix((GunSay - Yil * 365) / 30)
Gun = GunSay - (Yil * 365 + Ay * 30)
tson ile toplam gün bulunur
Yukarda da yıl,ay ve kalan gun