منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > اريد كود اظهار الفرق بين التاريخن
نسخة كاملة : اريد كود اظهار الفرق بين التاريخن
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

issamsaidd

03-06-18, 02:28 AM
السلام عليكم ورحمه الله 
عندى AgeTextBox اكتب فية العمر يدويا 
ولكن اريد كود عند اختيار التاريخ يطرح من تاريخ اليوم ويضيفة الى AgeTextBox ملاحظه AgeTextBox يكون بها عمر موضع يدويا اريد ان يضاف القيمة علية اذا كان 40 يصبح  مثلا 50 وهكذا عندى 
هى صورة من البرنامج الموجوده يطرح من تاريخ اليوم من القيمة الموضوع فى اول زيارة ثم الزياده يجمعها مع القيمة الموجوده AgeTextBox 
شكرا لكم مقدما 

issamsaidd

03-06-18, 12:16 PM
يا اخوان انا جربت ها الكود بس يطلع الايام ما يطلع با السينن ثم ما يجمع مين يصلحه 
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

03-06-18, 01:18 PM
يا اخون هذا الشرح هو بية الحل ولكن سى شارب وانا فيجول بيسك 
واريد القيمة المخرجه تجمع مع القمية الموجده سابقا فى AgeTextBox 
الفديو 

sendbad100

03-06-18, 02:00 PM
السلام عليكم

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

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

03-06-18, 02:21 PM
هذا هو الكود ولكن سى شارب واريده فيجول بيسك 
والناتج الخارج يجمع من القيمة السابقة فى 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

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

03-06-18, 03:18 PM
[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)

issamsaidd

03-06-18, 04:10 PM
اخ عبد الله جربته انا بدى يطرح تاريخ اليوم من تاريخ اول زيارة والناتج يتم اضافتة الىAgeTextBox اذا كان الفرق ٥ سنوات وعمر الحاله فى AgeTextBox ١٠ سنوت يصبح مجموعهم ١٥ سنة 

mrnooo2000

03-06-18, 04:45 PM
للاضافى الى العمر المسجل 
استخدم نفس الكود السابق مع جمع فارق التاريخ بالسنوات + العمر المسجل 

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

issamsaidd

03-06-18, 05:06 PM
شكرا لك ممكن اغلبك الكود كامل

mrnooo2000

03-06-18, 07:07 PM
هو نفس الكود فقط الاضافة 

كود :
       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)
الصفحات : 1 2
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > اريد كود اظهار الفرق بين التاريخن