18-07-19, 10:08 AM
18-07-19, 01:07 PM
السلام عليكم اخي الكريم
اولا سؤالك غير واضح ... مالذي تريد من اول الشهر وأخر الشهر؟
هل تريد اسم اليوم؟ ام رقم اليوم في السنة؟
ان كان ذلك فإليك المثال ضع التاريخ الذي تريد وسيجلب لك اسم اليوم ورقمه في السنة
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, 09:52 PM
(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))
18-07-19, 11:56 PM
واحصل على اسمه وتاريخ اول يوم وتاريخ اخر يوم لنفس الشهرمثال
رقم الشهر ٦
اسم الشهريونيو
تاريخ اول يوم ٠١/٠٦/٢٠١٩
تاريخ اخر يوم ٣٠/٠٦/٢٠١٩
رقم الشهر ٦
اسم الشهريونيو
تاريخ اول يوم ٠١/٠٦/٢٠١٩
تاريخ اخر يوم ٣٠/٠٦/٢٠١٩
19-07-19, 12:35 AM
السلام عليكم اخي الكريم
انشئ فورم وضع مربع نص 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)19-07-19, 11:36 PM
مشكور اخي الكريم جزاك الله الف خير
20-07-19, 06:48 AM
الحمد لله والشكر لله
ولك أخي الكريم