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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=47556)

استخراج الشهر الهجري - kebboud - 03-12-23

السلام عليكم إخوتي الكرام

تحويل السنة الميلادية إلى السنة الهجرية عندها طريقة معروفة و ليس فيها مشكلة
لكن كيف يمكن نحويل الشهر الميلادي إلى الشهر الهجري ؟؟
و كيف يمكن نحويل اليوم الميلادي إلى اليوم الهجري ؟؟

RE: استخراج الشهر الهجري - قناص المدينة - 03-12-23

هذه الدالة
Function ConvertToHijri(ByVal dateGregorian As DateTime) As String
Dim hijriCalendar As New HijriCalendar()
Dim hijriDate As String = hijriCalendar.GetYear(dateGregorian).ToString() + "/" + hijriCalendar.GetMonth(dateGregorian).ToString() + "/" + hijriCalendar.GetDayOfMonth(dateGregorian).ToString()

Return hijriDate
End Function
وهذه دالة الاستدعاء
Dim birthDate As DateTime = New DateTime(1990, 10, 15)

hijriDate.text = ConvertToHijri(birthDate)

RE: استخراج الشهر الهجري - kebboud - 04-12-23

(04-12-23, 04:42 PM)3sem كتب :
(03-12-23, 10:56 AM)kebboud كتب : السلام عليكم إخوتي الكرام

تحويل السنة الميلادية إلى السنة الهجرية عندها طريقة معروفة و ليس فيها مشكلة

الأخ الفاضل
كيف حولت السنة الميلادية إلى السنة الهجرية؟
ممكن اعرف الطريقة بما انها عندك معروفة و ليس فيها مشكلة!

أنتظرك أخي ــــــــــــــــــــــــــــــــــــــــــــــــــ
TextBox2.Text = Floor((Val(TextBox1.Text) - 622) * (33 / 32)).ToString


من خلال هذه الدالة نحول أي سنة ميلادية إلى هجرية 
(03-12-23, 04:04 PM)قناص المدينة كتب : هذه الدالة
Function ConvertToHijri(ByVal dateGregorian As DateTime) As String
       Dim hijriCalendar As New HijriCalendar()
       Dim hijriDate As String = hijriCalendar.GetYear(dateGregorian).ToString() + "/" + hijriCalendar.GetMonth(dateGregorian).ToString() + "/" + hijriCalendar.GetDayOfMonth(dateGregorian).ToString()
       
       Return hijriDate
   End Function
وهذه دالة الاستدعاء
Dim birthDate As DateTime = New DateTime(1990, 10, 15)

hijriDate.text = ConvertToHijri(birthDate)
جميل جدا و اشكرك على الدالة الجميلة المفيدة ...