إقتباس :" وفي النموذج الي تحت يوم اكتب التاريخ يدوي في TextBox كيف اقدر احسب في Button   ويطلع الناتج فيLabel6 "

إقتباس :غير مفهوم ...  

أولا لماذا تكتبي التاريخ بشكل يدوي وعندك الأداة DateTimePicker ؟؟
ثانيا ماذا تريدين ان تحسبي في النموذج السفلي ؟؟ لايوجد تاريخين ليتم احتساب الفرق بينهم .

(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




بالتوفيق ان شاء الله

(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