[issamsaidd]

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

[issamsaidd]

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

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

[issamsaidd]

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

[sendbad100]

السلام عليكم

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

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]

هذا هو الكود ولكن سى شارب واريده فيجول بيسك 

والناتج الخارج يجمع من القيمة السابقة فى 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

[عبدالله الدوسري]

   

   

كود :

       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)

[issamsaidd]

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

[mrnooo2000]

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

كود :

     MsgBox(Year + Val(AgeTextBox.Text.ToString))

[issamsaidd]

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

[mrnooo2000]

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

كود :

       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)