20/03/2021, 21:57
20/03/2021, 22:11
Rica ederim
İyi çalışmalar)
Kodları denediniz değil mi?
Çıkarma fonksiyonu dahil hepsi çalıştı mı?
İyi çalışmalar)
Kodları denediniz değil mi?
Çıkarma fonksiyonu dahil hepsi çalıştı mı?
20/03/2021, 22:37
Ustam mükemmel çalıştı. Tekrar elleriniz kollarınıza sağlık.
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
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 FunctionSadece 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:39
(20/03/2021, 22:37)malatyalı yazdı: [ -> ]Yıl, ay, gün nasıl ayırılır?anlamadım?
TrhDagit fonksiyonunda var aslinda
20/03/2021, 22:47
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
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
20/03/2021, 22:53
Yil = Fix(GunSay / 365)
Ay = Fix((GunSay - Yil * 365) / 30)
Gun = GunSay - (Yil * 365 + Ay * 30)Yukarda da yıl,ay ve kalan gun