تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تقسيم مدة تاريخ (10 سنوات، 5 سنوات ...)
#1
السلام عليكم مرحمة الله تعالى وبركاته
اخواني الكرام كيف الحال ؟؟، أتمنى أن تكونوا بأتم الصحة والعافية
وبعد،
أتمنى أن تساعدوني في تقسم المدة (مثلا: عشر سنوات، خمس سنوات...) إلى قسمين، ثلثين أو ثلث...
قمت بعمل تجربة لكن لا تكون مضبوطة.
فلنأخد مثال للتوضيح أكثر...
لدينا عشر (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)
اسم مستعار : b4getws
من ضمن أعمالي في مجال الويب : تصميم قالب للمدونتين تقني ويب و وظيفتي
الرد
تم الشكر بواسطة: خالد20 , جيولوجي مبتدئ
#2
كود :
     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
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 00963951283515
الرد
تم الشكر بواسطة: خالد20 , b4getws , b4getws , اسامه الهرماوي
#3
شكرا لك اخي الكريم...
اسم مستعار : b4getws
من ضمن أعمالي في مجال الويب : تصميم قالب للمدونتين تقني ويب و وظيفتي
الرد
تم الشكر بواسطة: ابو انس


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  زيادة عدد من السنوات لحقل تاريخ atefkhalf2004 4 108 منذ 2 ساعة مضت
آخر رد: خالد كامل1
  استعلام عن اكبر تاريخ و اكبر قيمة في الحقلين العيدروس 12 955 24-04-21, 05:37 AM
آخر رد: messry
  [VB.NET] مشكلة عند تحويل المتغير الي تاريخ احمد 2021 4 931 01-04-21, 09:39 PM
آخر رد: احمد 2021
  [VB.NET] البحث عن تاريخ SHAM1 4 840 06-03-21, 07:50 AM
آخر رد: ZaerAllail
  تقسيم الأعمدة فى فيجوال بيسك سؤال jemyx 0 338 11-02-21, 10:22 PM
آخر رد: jemyx
  [نقاش] عن الكاميرات وكود لحساب تاريخ وعمر الشخص michaelripper42 1 367 09-11-20, 01:42 AM
آخر رد: اسامه الهرماوي
  [سؤال] هل ممكن كود فيجوال بيسك لزر تغير تاريخ الكمبيوتر للوراء وكود اخر ارجاعه طبيبعي jam3h 13 2,220 20-09-20, 08:46 PM
آخر رد: jam3h
  [Acces2007] اريد تقسيم بيانات عمود الى عدة اعمدة ويوجد مثال مصور sasay202 2 796 01-09-20, 10:22 PM
آخر رد: ابراهيم ايبو
  خصم الكميات الموجوده باكتر من تاريخ NABILWARSAW 14 1,860 20-07-20, 08:29 PM
آخر رد: WaeLx
  [VB.NET] مشكل في كود انتهاء تاريخ الصلاحية او الدفع rochdi191 6 1,194 23-06-20, 04:42 PM
آخر رد: rochdi191

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم