[starosta]

هل توجد طريقة بمجرد أن تختار يوم في هذه الأداة يكتب لك اليوم (السبت - أحد - إلخ) ويكتب لك التاريخ هجري وميلادي في عدد من التيكست بوكس ؟؟
أحتاج للطريقة بسرعة الله يرضى عليكم ..

[starosta]

لسه منتظر يا حبايب ..

[حريف برمجة]

مرحبا اخي

اضف اداة Month Calendar

واضف ايضاً عدد 3 تكست بوكس (TextBox1 , TextBox2 , Textbox3)

تكست بوكس 1 لعرض اليوم
تكست بوكس 2 لعرض التاريخ الميلادي
تكست بوكس 3 لعرض التاريخ الهجري

اضف هذا الكود دبل كلك على اداة Month Calendar واكتب الكود التالي :

كود :

Dim HCal As New System.Globalization.HijriCalendar

       System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("ar-EG")
       Dim ci As New System.Globalization.CultureInfo("ar-sa")

       Dim dt As DateTime = MonthCalendar1.SelectionRange.Start.ToString

       TextBox1.Text = MonthCalendar1.SelectionRange.Start.ToString("dddd")
       TextBox2.Text = MonthCalendar1.SelectionRange.Start.ToString("yyyy/MM/dd")
       TextBox3.Text = MonthCalendar1.SelectionRange.Start.ToString("yyyy/MM/dd", ci)

[starosta]

مرحبا بك أستاذي .. وشاكر لك مرورك ..
قمت بكتابة الكود لكن يعطيني خطأ في الخيار SelectionRange
الخطأ هو (Error 37 'SelectionRange' is not a member of 'Pabo.Calendar.MonthCalendar')



حتى عندما أكتب إسم الكالندر وأضع نقطة لا يعطي هذا الخيار إنما خيار آخر اسمه selection mode جربته ولم ينجح أن تكتب بعده start.. علما بأني أستخدم لغة vb.net في برنامج visual studio 2012

[حريف برمجة]

انته طلبت كود الأداة month calendar
ووضعته لك ،، واتضح انك تستخدم أداة أخرى غير اللي طلبتها .

بالنسبة للأداة اللي استخدمتها انته ليست عندي .

استبدل اداتك بأداة الفيجوال اسمها Month Calendar وطبق ما قلته لك بالأعلى .

[starosta]

حقيقة لم أكن أعرف أن الدالة التي عندي ليست month calendar ..

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

[smss]

تفضل الدالة بsql
تقوم بالتحويل مباشرة تاريخ اليوم  الي تاريخ هجري ::
استبدل getdate() f بالتاريخ الذي تريده

كود :

select  CONVERT(nchar, GETDATE(), 131)

[starosta]

سلمت سلمت سلمت اخوي .. يعطيك الف عافية ..
بس باقي دالة مماثلة تعطيني يوم الأسبوع ..
وربنا يسعدك ياشيخ ..

[starosta]

وجدت الحل ..

كود :

DATEPART(w,date)

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