تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد كود اظهار الفرق بين التاريخن
#1
السلام عليكم ورحمه الله 
عندى AgeTextBox اكتب فية العمر يدويا 
ولكن اريد كود عند اختيار التاريخ يطرح من تاريخ اليوم ويضيفة الى AgeTextBox ملاحظه AgeTextBox يكون بها عمر موضع يدويا اريد ان يضاف القيمة علية اذا كان 40 يصبح  مثلا 50 وهكذا عندى 
هى صورة من البرنامج الموجوده يطرح من تاريخ اليوم من القيمة الموضوع فى اول زيارة ثم الزياده يجمعها مع القيمة الموجوده AgeTextBox 
شكرا لكم مقدما 

الرد }}}
تم الشكر بواسطة:
#2
يا اخوان انا جربت ها الكود بس يطلع الايام ما يطلع با السينن ثم ما يجمع مين يصلحه 
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
الرد }}}
تم الشكر بواسطة:
#3
يا اخون هذا الشرح هو بية الحل ولكن سى شارب وانا فيجول بيسك 
واريد القيمة المخرجه تجمع مع القمية الموجده سابقا فى AgeTextBox 
الفديو 

الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

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

http://vb4arb.com/vb/showthread.php?tid=...8%AA%D8%A7


http://vb4arb.com/vb/showthread.php?tid=...8%AA%D8%A7

http://vb4arb.com/vb/showthread.php?tid=...8%AA%D8%A7


بالتوفيق 
الرد }}}
تم الشكر بواسطة: issamsaidd
#5
هذا هو الكود ولكن سى شارب واريده فيجول بيسك 
والناتج الخارج يجمع من القيمة السابقة فى 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
الرد }}}
تم الشكر بواسطة:
#6
   

   

كود :
       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)
الرد }}}
تم الشكر بواسطة: sendbad100 , issamsaidd , السندبااد
#7
اخ عبد الله جربته انا بدى يطرح تاريخ اليوم من تاريخ اول زيارة والناتج يتم اضافتة الىAgeTextBox اذا كان الفرق ٥ سنوات وعمر الحاله فى AgeTextBox ١٠ سنوت يصبح مجموعهم ١٥ سنة 
الرد }}}
تم الشكر بواسطة:
#8
للاضافى الى العمر المسجل 
استخدم نفس الكود السابق مع جمع فارق التاريخ بالسنوات + العمر المسجل 

كود :
     MsgBox(Year + Val(AgeTextBox.Text.ToString))
الرد }}}
تم الشكر بواسطة: issamsaidd , issamsaidd
#9
شكرا لك ممكن اغلبك الكود كامل
الرد }}}
تم الشكر بواسطة:
#10
هو نفس الكود فقط الاضافة 

كود :
       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)
الرد }}}
تم الشكر بواسطة: issamsaidd , issamsaidd


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] محتاج كود حساب الفرق بين تاريخين بالايام moustafakamel95 3 451 29-01-24, 04:05 PM
آخر رد: مصطفى مصطفى
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 434 09-01-24, 08:40 PM
آخر رد: new_programer
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  الفرق بين تاريخين على أن يظهر الناتج بعدد الاشهر boofa2022 4 261 03-01-24, 11:21 AM
آخر رد: boofa2022
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 360 08-11-23, 08:16 AM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 485 05-11-23, 01:45 AM
آخر رد: justforit
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 1 349 01-09-23, 07:13 AM
آخر رد: Asem2

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


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