منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اريد كود اظهار الفرق بين التاريخن - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اريد كود اظهار الفرق بين التاريخن (/showthread.php?tid=25210)

الصفحات: 1 2

اريد كود اظهار الفرق بين التاريخن - issamsaidd - 03-06-18

السلام عليكم ورحمه الله 
عندى AgeTextBox اكتب فية العمر يدويا 
ولكن اريد كود عند اختيار التاريخ يطرح من تاريخ اليوم ويضيفة الى AgeTextBox ملاحظه AgeTextBox يكون بها عمر موضع يدويا اريد ان يضاف القيمة علية اذا كان 40 يصبح  مثلا 50 وهكذا عندى 
هى صورة من البرنامج الموجوده يطرح من تاريخ اليوم من القيمة الموضوع فى اول زيارة ثم الزياده يجمعها مع القيمة الموجوده AgeTextBox 
شكرا لكم مقدما 



RE: اريد كود اظهار الفرق بين التاريخن - issamsaidd - 03-06-18

يا اخوان انا جربت ها الكود بس يطلع الايام ما يطلع با السينن ثم ما يجمع مين يصلحه 
Dim a As Date

        Dim b As Date
        Dim c As TimeSpan
        a = Date.Today
        b = DateoffirstvisitDateTimePicker.Value
        c = a - b
        Me.AgeTextBox.Text += c.ToString


RE: اريد كود اظهار الفرق بين التاريخن - issamsaidd - 03-06-18

يا اخون هذا الشرح هو بية الحل ولكن سى شارب وانا فيجول بيسك 
واريد القيمة المخرجه تجمع مع القمية الموجده سابقا فى AgeTextBox 
الفديو 

RE: اريد كود اظهار الفرق بين التاريخن - sendbad100 - 03-06-18

السلام عليكم

انظر المواضيع التالية   قد تفيدك

http://vb4arb.com/vb/showthread.php?tid=24932&highlight=%D8%A7%D9%84%D9%81%D8%B1%D9%82+%D8%A8%D9%8A%D9%86+%D8%AA%D8%A7


http://vb4arb.com/vb/showthread.php?tid=10621&highlight=%D8%A7%D9%84%D9%81%D8%B1%D9%82+%D8%A8%D9%8A%D9%86+%D8%AA%D8%A7

http://vb4arb.com/vb/showthread.php?tid=15381&highlight=%D8%A7%D9%84%D9%81%D8%B1%D9%82+%D8%A8%D9%8A%D9%86+%D8%AA%D8%A7


بالتوفيق 


RE: اريد كود اظهار الفرق بين التاريخن - issamsaidd - 03-06-18

هذا هو الكود ولكن سى شارب واريده فيجول بيسك 
والناتج الخارج يجمع من القيمة السابقة فى AgeTextBox.txt
لان AgeTextBox.txt يوجد بها رقم صحيح
اتمنى احد من اهل الخبرة يساعدنى 
 
; date time = from DateoffirstvisitDateTimePicker.Value

;date time = to date time .now

;TimeSpan TS span = to - from

;Double days = Ts span .totaldays

;("AgeTextBox.txt = (Days / 365).to string("0


RE: اريد كود اظهار الفرق بين التاريخن - عبدالله الدوسري - 03-06-18

[attachment=18347]

[attachment=18348]

كود :
       Dim Timespn As TimeSpan = Now - Me.DateTimePicker1.Value
       Dim Year As Integer = (Timespn.TotalDays \ 365.25)
       Dim Month As Integer = ((Timespn.TotalDays Mod 365.25) \ 30)
       Dim Day As Integer = ((Timespn.TotalDays Mod 365.25) Mod 30)

       MsgBox("Year : " & Year & ",   Month : " & Month & ",   Day : " & Day)


RE: اريد كود اظهار الفرق بين التاريخن - issamsaidd - 03-06-18

اخ عبد الله جربته انا بدى يطرح تاريخ اليوم من تاريخ اول زيارة والناتج يتم اضافتة الىAgeTextBox اذا كان الفرق ٥ سنوات وعمر الحاله فى AgeTextBox ١٠ سنوت يصبح مجموعهم ١٥ سنة 

RE: اريد كود اظهار الفرق بين التاريخن - mrnooo2000 - 03-06-18

للاضافى الى العمر المسجل 
استخدم نفس الكود السابق مع جمع فارق التاريخ بالسنوات + العمر المسجل 

كود :
     MsgBox(Year + Val(AgeTextBox.Text.ToString))


RE: اريد كود اظهار الفرق بين التاريخن - issamsaidd - 03-06-18

شكرا لك ممكن اغلبك الكود كامل

RE: اريد كود اظهار الفرق بين التاريخن - mrnooo2000 - 03-06-18

هو نفس الكود فقط الاضافة 

كود :
       Dim Year As Integer = (Timespn.TotalDays \ 365.25)
       Dim Month As Integer = ((Timespn.TotalDays Mod 365.25) \ 30)
       Dim Day As Integer = ((Timespn.TotalDays Mod 365.25) Mod 30)
       MsgBox("Year : " & Year + Val(AgeTextBox.Text.ToString) & ",   Month : " & Month & ",   Day : " & Day)