[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)