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

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

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

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

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

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

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

---

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

(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

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

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

بالتوفيق لك

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

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

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