طرح تاريخ من تاريخ بإستخدام ال DateTimePicker

يمكنك وضع أي جزء من التاريخ في صندوق النصوص باستخدام الدالة ToString مثال

Me.TextBox1.Text = Me.DateTimePicker1.Value.ToString("yyyy")

السلام عليكم

لطرح وقت أو تاريخ من أخر نستخدم الدالة DateDiff

كالتالي :

Dim i As Integer
i=DateDiff(DateInterval.Day, CDate(StrDateTextBox.Text), CDate(EndDateTextBox.Text))

حيث أن

DateInterval.Day هي القيمة التي ستعود بها الدالة (ثواني ، دقائق ، ساعات ، أيام ، شهور ، أرباع ، سنين)

StrDateTextBox.Text هو صندوق نص فيه تاريخ البداية

EndDateTextBox هو صندوق نص فيه تاريخ النهاية

والدالة CDate هي لتحويل نوع القيمة من نصية إلى تاريخ .

بالتوفيق

السلام عليكم

إخوانى

محمد سامر أبو سلو و MSVS

جزاكم الله خير على سرعة الرد والاجابة الواضحة

جارى التجربة

تحياتى

محمد سامر أبو سلو كتب:

يمكنك وضع أي جزء من التاريخ في صندوق النصوص باستخدام الدالة ToString مثال

Me.TextBox1.Text = Me.DateTimePicker1.Value.ToString("yyyy")

السلام عليكم

اخى فى الله محمد

لماذا هذا الكود لايعمل مع الشهور بشكل صحيح انه يعمل فقط مع الايام والسنين

علما بأن الDateTimePicker1 بها هذه القيمة 02/03/2007

الايام

Me.TextBox1.Text = Me.DateTimePicker1.Value.ToString("dd")
يعمل بشكل صحيح= 02

السنين

Me.TextBox1.Text = Me.DateTimePicker1.Value.ToString("yyyy")
يعمل بشكل صحيح=  2007

ولكن مع الشهور يظهر القيمة (00) أصفار لو كتبت هذا الكود

Me.TextBox1.Text = Me.DateTimePicker1.Value.ToString("mm")
الناتج (00)

حاولت التغيير ولكن يظهر لى إسم الشهر مع تاريخ اليوم

Me.TextBox1.Text = Me.DateTimePicker1.Value.ToString("m")
الناتج 
مارس 02

أرجو الافادة

تحياتى

معك حق وذلك بسبب أن ناتج الفرق هو من النوع TimeSpan

انظر الكود التالي لعله يفيدك

		Dim da As TimeSpan
		da = Me.DateTimePicker1.Value - Me.DateTimePicker2.Value

		' تستطيع إظهار الفرق بعدة أشكال
		' see da properties
		Me.TextBox1.Text = da.Days
		' or
		Me.TextBox1.Text = da.Hours
		' or
		Me.TextBox1.Text = da.TotalMinutes

مرحبا

ال TimeSpan لم تنفع معى انظر الصورة بالمرفقات

انا وجدت حل اخر لمشكلة الشهور

 Me.textbox.Text = Me.DateTimePicker.Value.Year
Me.textbox.Text = Me.DateTimePicker.Value.Month
Me.textbox.Text = Me.DateTimePicker.Value.day

الناتج بيطلع على التيكست بوكس صحيح ولكن

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

DateTimePicker2 من DateTimePicker1 واحط الناتج(طبعا هيكون تاريخ) فى DateTimePicker3 أخرى

ارجو الافادة

غريبة الخطأ الظاهر لك في الصورة لم يظهر عندي

هل جربت الدالة DateDiff

جربتها ولم تنفع معى مش فيه اى استجابة

أخشي ان يكون شرحك على 2005 انا بشتغل على 2003

نعم أنا أعمل على 2005 ولم أقم بتنزيل 2003

محمد سامر أبو سلو كتب:

نعم أنا أعمل على 2005 ولم أقم بتنزيل 2003

جزاك على خير على محاولاتك لمساعدتى

لكنى اشتغل ب 2003 و سأحتفظ بالكود السابق لحين تطوير لغتى الى 2005 لانى سأحتاجة بالفعل

ولكن مازال الموضوع مطروح

تحياتى

cdcase كتب:

مثال وسؤال

------------

المثال :

ال DateTimePicker1 فيها تاريخ = 12/11/2007

وال DateTimePicker2 فيها تاريخ = 04/01/2006

------------

والسؤال :

عايز اعمل معادلة الطرح ديه

DateTimePicker3 = DateTimePicker1 - DateTimePicker2

يعنى

DateTimePicker3 = 12/11/2007 - 04/01/2006

DateTimePicker3 = 08/10/0001

وعندى 3 (TxtBox)

عايز اقسم النتيجة عليهم

يعنى TxtBox1 ياخد الناتج من الايام (08)

و TxtBox2 ياخد الناتج من الشهور (10)

و TxtBox3 ياخد الناتج من السنين (0001) أو (1)

-------------

أرجو الافادة

تحياتى

UP