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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : التحويل من هجري الى ميلادي (/showthread.php?tid=18114)

التحويل من هجري الى ميلادي - haniblack - 22-11-16

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

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

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

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

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

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

كود :
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


RE: التحويل من هجري الى ميلادي - myalsailamy - 22-11-16

كود :
    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

RE: التحويل من هجري الى ميلادي - haniblack - 23-11-16

(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


RE: التحويل من هجري الى ميلادي - myalsailamy - 23-11-16

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

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

بالتوفيق لك

RE: التحويل من هجري الى ميلادي - Amir_Alzubidy - 23-11-16

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

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


[attachment=12282]

RE: التحويل من هجري الى ميلادي - haniblack - 23-11-16

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

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

RE: التحويل من هجري الى ميلادي - عبدالقادرعواد - 19-02-17

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