[اليوم السابع]

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

[معاند الحظ]

اخي ابحث في اسئلة الصباح لاني جاوبت لنفس السؤال اليوم الصباح

[aljzazy]

كود :

Dim dt1 As DateTime = Convert.ToDateTime(DateTimePicker1.Value.ToString("dd/MM/yyy"))

Dim dt2 As DateTime = Convert.ToDateTime(DateTimePicker2.Value.ToString("dd/MM/yyy"))

Dim ts As TimeSpan = dt2.Subtract(dt1)

If Convert.ToInt32(ts.Days) >= 0 Then

  For index = 0 To ts.Days

  Dim ds As String = dt1.AddDays(index)

Next

Else

  MessageBox.Show("Please Check It's Invalid Input")

End If

[اليوم السابع]

(03-05-20, 01:42 AM)aljzazy كتب :

كود :

Dim dt1 As DateTime = Convert.ToDateTime(DateTimePicker1.Value.ToString("dd/MM/yyy"))

Dim dt2 As DateTime = Convert.ToDateTime(DateTimePicker2.Value.ToString("dd/MM/yyy"))

Dim ts As TimeSpan = dt2.Subtract(dt1)

If Convert.ToInt32(ts.Days) >= 0 Then

  For index = 0 To ts.Days

  Dim ds As String = dt1.AddDays(index)

Next

Else

  MessageBox.Show("Please Check It's Invalid Input")

End If

شكرا اخي ولكن هذا التاريخ يتم كتابته يدويا وليس من خلال DateTimePicker1

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي بما ان التاريخ المكتوب في مربعات النص عبارة عن نصوص
لذا وجب تحويلها اولا الى تاريخ ومن ثم اجراء عملية الفرق بينهما ثم وضع التاتج في مربع نص مثلا
نعرف متغيرين من نوع Date ثم نسند لكل منهما قيمة التاريخ من مربعات النصوص محولة الى تاريخ
بهذا الشكل طبعا الفرق هنا بالايام 

كود :

Dim newdat, olddate As Date

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       newdat = CDate(TextBox1.Text)
       olddate = CDate(TextBox2.Text)
       Dim kk As Integer = DateDiff(DateInterval.Day, olddate, newdat)
       TextBox3.Text = "الفرق بين التاريخين :" & kk & " يوما "
   End Sub

[aljzazy]

غيرها الى تكست بوكس اين المشكلة اخي الكريم

[AnasAlhussain]

http://vb4arb.com/vb/showthread.php?tid=17367

[اليوم السابع]

(03-05-20, 01:58 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله زبركاته
اخي بما ان التاريخ المكتوب في مربعات النص عبارة عن نصوص
لذا وجب تحويلها اولا الى تاريخ ومن ثم اجراء عملية الفرق بينهما ثم وضع التاتج في مربع نص مثلا
نعرف متغيرين من نوع Date ثم نسند لكل منهما قيمة التاريخ من مربعات النصوص محولة الى تاريخ
بهذا الشكل طبعا الفرق هنا بالايام 

كود :

Dim newdat, olddate As Date

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       newdat = CDate(TextBox1.Text)
       olddate = CDate(TextBox2.Text)
       Dim kk As Integer = DateDiff(DateInterval.Day, olddate, newdat)
       TextBox3.Text = "الفرق بين التاريخين :" & kk & " يوما "
   End Sub

هذا اكثر مما طلبت تسلم ايدك اخي الغالي

[ابراهيم ايبو]

الحمد لله والشكر لله

ولك اخي عادل