[haniblack]

الاخوة الكرام الاسم عليكم ,,,

الكود التالي يقوم بتحويل التاريخ المدخل بالهجري الى تاريخ ميلادي

لكن المشكلة انه يقوم باعطائي التاريخ الذي يكون فيه (الشهر - اليوم - السنة )

وانا اريد  ان يظهر (اليوم- الشهر - السنة )

هل هناك طريقة برمجية لتعديل هذا الكود بدون الدخول لاعدادات الويندوز ولوحة التحكم او ماشابه

ملاحظة :::: هذا الكود يأخذ من تاريخ الكمبيوتر

كود :

Dim tDate As Date
If IsDate(Text5) = False Then

Exit Sub
Else
If IsDate(Text5) = True Then
Calendar = vbCalHijri
tDate = Text5
Calendar = vbCalGreg
txteqama_E = tDate
Else
Calendar = vbCalGreg
tDate = Text5
Calendar = vbCalHijri
txteqama_E = tDate
End If
End If

[myalsailamy]

كود :

    Public Function HijriToGregorian(ByVal Year As Integer, ByVal Month As Integer, ByVal Day As Integer) As DateTime
        Try
            Dim Ar As Globalization.CultureInfo = New Globalization.CultureInfo("ar-sa")
            System.Threading.Thread.CurrentThread.CurrentCulture = Ar
            Ar.DateTimeFormat.Calendar = New Globalization.UmAlQuraCalendar
            HijriToGregorian = New DateTime(Year, Month, Day, Ar.DateTimeFormat.Calendar)
            Ar.DateTimeFormat.Calendar = New Globalization.GregorianCalendar
        Catch ex As Exception
            ex = Nothing
        End Try
        HijriToGregorian = Nothing
    End Function

---

http://vb4arb.com/vb/thread-14118.html

[haniblack]

(22-11-16, 05:35 PM)اخي الكريم شكرا جزيلا لاهتمامك لكن كيف استخدم هذا الكود !! اين يمكن وضعه مع العلم انني استخدم 6.0 visual basic وليس .NET كتب :

كود :

    Public Function HijriToGregorian(ByVal Year As Integer, ByVal Month As Integer, ByVal Day As Integer) As DateTime
        Try
            Dim Ar As Globalization.CultureInfo = New Globalization.CultureInfo("ar-sa")
            System.Threading.Thread.CurrentThread.CurrentCulture = Ar
            Ar.DateTimeFormat.Calendar = New Globalization.UmAlQuraCalendar
            HijriToGregorian = New DateTime(Year, Month, Day, Ar.DateTimeFormat.Calendar)
            Ar.DateTimeFormat.Calendar = New Globalization.GregorianCalendar
        Catch ex As Exception
            ex = Nothing
        End Try
        HijriToGregorian = Nothing
    End Function

---

http://vb4arb.com/vb/thread-14118.html

[myalsailamy]

المعذره لم انتبه بانك تستخدم  VB6 ،  و تجربتي بها قليله ، لذلك اترك المساحه لاخوتي المتخصصين في  VB6

وهذه بعض الروابط بعد بحثي  في قوقل  ، و لا اعرف مدى دقتها  :
http://www.freevbcode.com/ShowCode.asp?ID=8626
https://msdn.microsoft.com/en-us/library...s.60).aspx

بالتوفيق لك

[Amir_Alzubidy]

السلام عليكم
هذا مثال  لتحويل التاريخ سواء من الميلادي الى الهجري او العكس
و يمكن استخدامه لتاريخ ام القرى ايضاً . .

لا اعرف من صاحبه لكن اسأل الله له التوفيق اينما كان . .



  DateConvert.rar (الحجم : 4.05 ك ب / التحميلات : 86)

[haniblack]

بارك الله بكم جميعاً

نعم الطريقة نجحت بكل سهولة
شكراً جزيلاً

[عبدالقادرعواد]

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