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

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

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

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

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

(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

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