(17-05-15, 11:32 PM)Dr.Sherif Alazizi كتب :إقتباس :" وفي النموذج الي تحت يوم اكتب التاريخ يدوي في TextBox كيف اقدر احسب في Button ويطلع الناتج فيLabel6 "
إقتباس :غير مفهوم ...
أولا لماذا تكتبي التاريخ بشكل يدوي وعندك الأداة DateTimePicker ؟؟
ثانيا ماذا تريدين ان تحسبي في النموذج السفلي ؟؟ لايوجد تاريخين ليتم احتساب الفرق بينهم .
بالنسبة للشق الثالث من الطلب وهو كتابة اسم اليوم
PHP كود :
Dim CurruntCulture = Globalization.CultureInfo.CurrentCulture
Dim DayName As String = CurruntCulture.DateTimeFormat.GetDayName(DateTime.Parse(DateTimePicker1.Value).DayOfWeek)
MsgBox(DayName)
فهذا الكود يحضر لك اسم اليوم حسب ما تختاريه من أداة الـ DateTimePicker
بالتوفيق ان شاء الله
امممم الكود وين اكتبة بضبط في TextBox ولا Button ولا فيLabeL
(17-05-15, 11:32 PM)Dr.Sherif Alazizi كتب :إقتباس :" وفي النموذج الي تحت يوم اكتب التاريخ يدوي في TextBox كيف اقدر احسب في Button ويطلع الناتج فيLabel6 "
إقتباس :غير مفهوم ...
أولا لماذا تكتبي التاريخ بشكل يدوي وعندك الأداة DateTimePicker ؟؟
ثانيا ماذا تريدين ان تحسبي في النموذج السفلي ؟؟ لايوجد تاريخين ليتم احتساب الفرق بينهم .
بالنسبة للشق الثالث من الطلب وهو كتابة اسم اليوم
PHP كود :
Dim CurruntCulture = Globalization.CultureInfo.CurrentCulture
Dim DayName As String = CurruntCulture.DateTimeFormat.GetDayName(DateTime.Parse(DateTimePicker1.Value).DayOfWeek)
MsgBox(DayName)
فهذا الكود يحضر لك اسم اليوم حسب ما تختاريه من أداة الـ DateTimePicker
بالتوفيق ان شاء الله
(18-05-15, 12:00 AM)الطالب كتب : سلام
بعد اذن الدكتور شريف حبيت اشارك معاكم بهذا الكود لحساب نهاية الاجازة بعدد الايام
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim m_days As Integer = Val(TextBox1.Text) ' عدد الأيام
Dim m_dateStart As Date = DateTimePicker1.Value.Date ' تاريخ بداية الاجازة
Dim m_dateEnd As Date = DateAdd(DateInterval.Day, m_days, m_dateStart) ' تاريخ نهاية الاجازة
Dim m_day As String = New Globalization.CultureInfo("ar-SA", True).DateTimeFormat.GetDayName(m_dateEnd.DayOfWeek) ' اسم اليوم بالعربي
Label1.Text = String.Concat(m_day, " ", m_dateEnd.ToLongDateString)
End Sub
راح اجربه وان شاءالله يضبط ربي يجزاك كل خير
http://www5.0zz0.com/2015/05/17/23/246412946.png
مو عارفه وين الخطاء
هذا الي طلع لي
سويت FORM اجرب فقط وهذا الي صارhttp://www5.0zz0.com/2015/05/17/23/246412946.png
مو عارفه وين الخطاء
هذا الي طلع لي
سويت FORM اجرب فقط وهذا الي صار
سبحان الله وبحمده .. سبحان الله العظيم