تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار عن اظهار تاريخ اول يوم واخر في الشهر
#1
السلام عليكم
ممكن طلب مساعدة حول اظهار تاريخ اول واخر يوم في الشهر حسب رقم او اسم الشهر
الرد
تم الشكر بواسطة:
#2
السلام عليكم اخي الكريم
اولا سؤالك غير واضح ... مالذي تريد من اول الشهر وأخر الشهر؟
هل تريد اسم اليوم؟ ام رقم اليوم في السنة؟
ان كان ذلك فإليك المثال ضع التاريخ الذي تريد وسيجلب لك اسم اليوم ورقمه في السنة


الملفات المرفقة
.rar   NameOfDay.rar (الحجم : 102.41 ك ب / التحميلات : 6)
الرد
تم الشكر بواسطة: سعود , حريف برمجة , ابو روضة , ابو روضة , viv , viv
#3
ولمعرفة كم يوم يكون الشهر
ضع هذا الكود في زر البوتون ايضا

كود :
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))
الرد
تم الشكر بواسطة: سعود , asemshahen5 , حريف برمجة , ابو روضة , viv
#4
(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))
الرد
تم الشكر بواسطة:
#5
واحصل على اسمه وتاريخ اول يوم وتاريخ اخر يوم لنفس الشهرمثال
رقم الشهر ٦
اسم الشهريونيو
تاريخ اول يوم ٠١/٠٦/٢٠١٩
تاريخ اخر يوم ٣٠/٠٦/٢٠١٩
الرد
تم الشكر بواسطة:
#6
السلام عليكم اخي الكريم
انشئ فورم وضع مربع نص 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)

الرد
تم الشكر بواسطة: asemshahen5 , ابو روضة , viv
#7
مشكور اخي الكريم جزاك الله الف خير
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#8
الحمد لله والشكر لله
ولك أخي الكريم
الرد
تم الشكر بواسطة: asemshahen5 , viv



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم