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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استفسار عن اظهار تاريخ اول يوم واخر في الشهر (/showthread.php?tid=30356)

استفسار عن اظهار تاريخ اول يوم واخر في الشهر - fuad_alshujaa - 18-07-19

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

RE: استفسار عن اظهار تاريخ اول يوم واخر في الشهر - ابراهيم ايبو - 18-07-19

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


RE: استفسار عن اظهار تاريخ اول يوم واخر في الشهر - ابراهيم ايبو - 18-07-19

ولمعرفة كم يوم يكون الشهر
ضع هذا الكود في زر البوتون ايضا

كود :
Dim yy As Integer = (CInt(CDate(TextBox1.Text).ToString("yyyy")))
       Dim MM As Integer = (CInt(CDate(TextBox1.Text).ToString("MM")))
       MsgBox(DateTime.DaysInMonth(yy, MM))


RE: استفسار عن اظهار تاريخ اول يوم واخر في الشهر - fuad_alshujaa - 18-07-19

(18-07-19, 02:17 PM)ابراهيم ايبو كتب : ولمعرفة كم يوم يكون الشهر
ضع هذا الكود في زر البوتون ايضا

كود :
Dim yy As Integer = (CInt(CDate(TextBox1.Text).ToString("yyyy")))
       Dim MM As Integer = (CInt(CDate(TextBox1.Text).ToString("MM")))
       MsgBox(DateTime.DaysInMonth(yy, MM))
(18-07-19, 02:17 PM)ابراهيم ايبومشكور اخي العزيز اريد ان ادخل رقم الشهر واحصل على اسمه وتاريخ اول يوم وتاريخ اخر يوم لنفس الشهرمثال ٦ يونيو اول يوم ٠١/٠٦/٢٠١٩ واخر يوم ٣٠/٠٦/٢٠١٩ كتب : ولمعرفة كم يوم يكون الشهر
ضع هذا الكود في زر البوتون ايضا

كود :
Dim yy As Integer = (CInt(CDate(TextBox1.Text).ToString("yyyy")))
       Dim MM As Integer = (CInt(CDate(TextBox1.Text).ToString("MM")))
       MsgBox(DateTime.DaysInMonth(yy, MM))


RE: استفسار عن اظهار تاريخ اول يوم واخر في الشهر - fuad_alshujaa - 18-07-19

واحصل على اسمه وتاريخ اول يوم وتاريخ اخر يوم لنفس الشهرمثال
رقم الشهر ٦
اسم الشهريونيو
تاريخ اول يوم ٠١/٠٦/٢٠١٩
تاريخ اخر يوم ٣٠/٠٦/٢٠١٩

RE: استفسار عن اظهار تاريخ اول يوم واخر في الشهر - ابراهيم ايبو - 19-07-19

السلام عليكم اخي الكريم
انشئ فورم وضع مربع نص Textbox1 وزر Button
وفي حذث Click للبوتون ضغ هذا الكود
كود :
 Dim ff As Integer = Val(TextBox1.Text)
       Dim Birtday As Date = CDate(ff & "/" & TextBox1.Text)
       MsgBox(Birtday.ToString("MMMM"))
       Dim LL As String = DateTime.DaysInMonth(Now.ToString("yyyy"), ff)
       Dim frday As String = "1/" & ff & "/" & Now.ToString("yyyy")
       Dim lastday As String = LL & "/" & ff & "/" & Now.ToString("yyyy")
       MsgBox(frday)
       MsgBox(lastday)



RE: استفسار عن اظهار تاريخ اول يوم واخر في الشهر - fuad_alshujaa - 19-07-19

مشكور اخي الكريم جزاك الله الف خير

RE: استفسار عن اظهار تاريخ اول يوم واخر في الشهر - ابراهيم ايبو - 20-07-19

الحمد لله والشكر لله
ولك أخي الكريم