[b4getws]

السلام عليكم مرحمة الله تعالى وبركاته
اخواني الكرام كيف الحال ؟؟، أتمنى أن تكونوا بأتم الصحة والعافية
وبعد،
أتمنى أن تساعدوني في تقسم المدة (مثلا: عشر سنوات، خمس سنوات...) إلى قسمين، ثلثين أو ثلث...
قمت بعمل تجربة لكن لا تكون مضبوطة.
فلنأخد مثال للتوضيح أكثر...
لدينا عشر (10) سنوات، إذا أردنا تقسيمها إلى ثلثين فالنتيجة المفصلة ستكون كالتالي :
أولا: 10 لا يمكن قسمتها على 3، إذا سنقوم بتحويل سنة واحد من تلك العشر إلى 12 شهرا، لتصبح بذلك : 9 سنوات و 12 شهرا. وهذان العددان (أي 9 و 12 قابلين للقسمة على 3)
ثانيا: بعد تقسيم إلى 3 الخارج هم : 3 سنوات و 4 أشهر.
ثالثا: في مثالنا نريد تقسيم تلك العشر سنوات إلى ثلثين، إذا النتيجة النهائية ستكون إما بضرب في اثنين (02) (أو إضافة نفس التاريخ) أي : 6 سنوات و 8 أشهر، وهذا النتيجة التي أتشوق لإضهارها : 6 سنوات و 8 أشهر
أتمنى أن يكون الشرح واضحا، وأتمنى مساعدتكم لي، وشكرا مقدما.
قمت بعمل مثال لكن لا يخرج بشكل المفروض، كما أنني أضن أنني أستعمل الدوال الغير ملائمة لمثالي :

كود :

Dim date1 As Date = #07/22/2011#
        Dim date2 As Date = #07/22/2021#
        Dim interval As TimeSpan = date2 - date1
        Dim zzz1 = interval.TotalDays
        Dim zzz2 = Val(zzz1 / 3)
        Dim zzz3 = zzz2 * 2
        Console.WriteLine(interval.TotalDays & "     " & zzz3)

[ابو انس]

كود :

     Dim yar As Integer = Val(TextBox1.Text) \ Val(TextBox2.Text)
       Dim month As Integer = Val(TextBox1.Text) Mod Val(TextBox2.Text)
       month = (month * 12) / Val(TextBox2.Text)
       Label1.Text = yar & "سنة" & " " & "و  " & month & " " & "شهر"

وعليكم السلام ورحمة الله وبركاته
الادوات المطلوبة

تيكست بوكس لتدخل به عدد السنوات
تيكست بوكس لتدخل به العدد المقسوم عليه
زر تدخل به الكود مثل ما هو نسخ لصق
وليبل لاظهار النتيجة كذا سنة وكذا شهر

مثلا اذا ادخلت في تيكست بوكس 1 العدد 10 وفي تيكست بوكس 2 العدد 3 فستظهر النتيجة كالأتي : 3 سنوات و 4 أشهر
اما اذ اردتها ان ظهر ثلثين حسب ما فهمت من كلامك انك تريد فعليك التغيير في السطر قبل الاخير من الكود البرمجي اي في قيمة المتغير month
فاضربه ب الرقم 2   *2

[b4getws]

شكرا لك اخي الكريم...