[حريف برمجة]

مرحبا اخي

اضف اداة 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)