+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Textbox (gün Ay Yıl) Tarih Toplama Ve Çıkarma (/konu-textbox-gun-ay-yil-tarih-toplama-ve-cikarma.html)
RE: Textbox (gün Ay Yıl) Tarih Toplama Ve Çıkarma - malatyalı - 20/03/2021
Ustam eline koluna sağlık.
Hakkınızı helal edin. Var olasınız
RE: Textbox (gün Ay Yıl) Tarih Toplama Ve Çıkarma - berduş - 20/03/2021
Rica ederim
İyi çalışmalar)
Kodları denediniz değil mi?
Çıkarma fonksiyonu dahil hepsi çalıştı mı?
RE: Textbox (gün Ay Yıl) Tarih Toplama Ve Çıkarma - malatyalı - 20/03/2021
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 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
RE: Textbox (gün Ay Yıl) Tarih Toplama Ve Çıkarma - berduş - 20/03/2021
(20/03/2021, 22:37)malatyalı yazdı: Yıl, ay, gün nasıl ayırılır?anlamadım?
TrhDagit fonksiyonunda var aslinda
RE: Textbox (gün Ay Yıl) Tarih Toplama Ve Çıkarma - malatyalı - 20/03/2021
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
RE: Textbox (gün Ay Yıl) Tarih Toplama Ve Çıkarma - berduş - 20/03/2021
Yil = Fix(GunSay / 365)
Ay = Fix((GunSay - Yil * 365) / 30)
Gun = GunSay - (Yil * 365 + Ay * 30)Yukarda da yıl,ay ve kalan gun