سؤال:ادخال "هجري" ... ظهور "ميلادي"!

أخي m_Ali_Altam اليك هذا الكود للتحويل من ميلادي الى هجري والعكس

أبو راكان القو تحياتي ,,,

تحويل التاريخ.zip

السلام عليكم أخي أبو راكان الملفات المرفقة لا يتعرف عليها VB.Net كيف يتم استخدامها وتشغيلها مع شكري الجزيل

جزاك الله خيرا

جرب هذا الكود للتحويل بين الهجري والميلادي

Module HijriGregorian

    Public Function GregorianToHijri(ByVal Year As Integer, _
        ByVal Month As Integer, ByVal Day As Integer) As DateTime

        Try
            Dim Ar As CultureInfo = New CultureInfo("ar-SY")

            Thread.CurrentThread.CurrentCulture = Ar
            Ar.DateTimeFormat.Calendar = New GregorianCalendar
            GregorianToHijri = New DateTime(Year, Month, Day, Ar.DateTimeFormat.Calendar)
            Ar.DateTimeFormat.Calendar = New HijriCalendar

        Catch ex As Exception
            ex = Nothing
        End Try

    End Function

    Public Function HijriToGregorian(ByVal Year As Integer, _
        ByVal Month As Integer, ByVal Day As Integer) As DateTime

        Try
            Dim Ar As CultureInfo = New CultureInfo("ar-SY")

            Thread.CurrentThread.CurrentCulture = Ar
            Ar.DateTimeFormat.Calendar = New HijriCalendar
            HijriToGregorian = New DateTime(Year, Month, Day, Ar.DateTimeFormat.Calendar)
            Ar.DateTimeFormat.Calendar = New GregorianCalendar

        Catch ex As Exception
            ex = Nothing
        End Try

    End Function

End Module

وهذا مثال عن كيفية استخدام الاجرءات

    Private Sub btnGrgToHij_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGrgToHij.Click
        Dim Dt As New DateTime
        Dt = GregorianToHijri(CInt(txtYear.Text), CInt(txtMonth.Text), CInt(txtDay.Text))
        TxtResult.Text = Dt.ToString("dddd dd-MMMM MM-yyyy")
    End Sub

    Private Sub btnHijToGrg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHijToGrg.Click
        Dim Dt As New DateTime
        Dt = HijriToGregorian(CInt(txtYear.Text), CInt(txtMonth.Text), CInt(txtDay.Text))
        TxtResult.Text = Dt.ToString("dddd dd-MMMM MM-yyyy")
    End Sub

جرب الكود وخبرني

آسف نسيت شغلة صغيرة أرجو المعذرة

التعريفات التي يجب أن تكون في بداية الملف حتى يعمل الكود

Imports System
Imports System.Globalization
Imports System.Threading

السلام عليكم

جزاك الله خير على هذا الكود النافع كصاحبه

وهذا تطبيق على الدرس ... ( يالله يالله أجيب عشرة من عشرة ) :(

HijriDateToChrist.zip

تمام يا أستاذ التطبيق حلو

بس بمناسبة الحكي عن موضوع الهجري إلى ميلادي عندي سؤال والصراحة لسا ما جربت اشتغل فيه

أنت مستخدم تحكم DateTimePicker في برنامج لاختيار التاريخ وهو عم يظهر التاريخ بالميلادي كيف فينا نقنعوا يظهر التاريخ الهجري

والله للحين ماحد عارف يقنعه دي مشكلة :)

انا ابغى ادخل تاريخ واقارن صحته بالهجري والميلادي كيف؟

يعني فرضا ادخل القيمة 1514-02-23 وابغى اعرف هل هي اكبر من تاريخ اليوم ام اقل

طبعا لازم اعرف اذا كان بالهجري حتكون اكبر وابالميلادي تكون اصغر بس كيف؟؟؟؟؟؟؟؟؟هنا السؤال

يمكنك استخدام إجراءات التحويل الموجودة هنا ثم استخدم دالات مقارنة التواريخ مع القيمة المعادة من الدالة now

آسف وضعت رد لموضوع آخر هنا بالخطأ

الحل هو تحويل اعدادات الويندوز عند العميل الي التاريخ الهجري و لكن اذا كان القصد مقارنة تاريخ ميلادي بنظير له هجري فهذا موضوع اخر