Ustam eline koluna sağlık.
Hakkınızı helal edin. Var olasınız
Textbox (gün Ay Yıl) Tarih Toplama Ve Çıkarma
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ı?
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 FunctionYı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
Son Düzenleme: 20/03/2021, 22:40, Düzenleyen: malatyalı.
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
Son Düzenleme: 20/03/2021, 22:51, Düzenleyen: malatyalı.
Yil = Fix(GunSay / 365)
Ay = Fix((GunSay - Yil * 365) / 30)
Gun = GunSay - (Yil * 365 + Ay * 30)Yukarda da yıl,ay ve kalan gun
Konuyu Okuyanlar: 2 Ziyaretçi
