منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

هذه الدالة
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)

(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)

جميل جدا و اشكرك على الدالة الجميلة المفيدة ...