تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التحويل من هجري الى ميلادي
#1
الاخوة الكرام الاسم عليكم ,,,

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

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

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

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

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

كود :
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
الرد }}}}
تم الشكر بواسطة:
#2
كود :
    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
اسم معرفي : محمد يحيى
الرد }}}}
#3
(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
الرد }}}}
تم الشكر بواسطة:
#4
المعذره لم انتبه بانك تستخدم  VB6 ،  و تجربتي بها قليله ، لذلك اترك المساحه لاخوتي المتخصصين في  VB6

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

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

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



.rar   DateConvert.rar (الحجم : 4.05 ك ب / التحميلات : 5)
سأعود قريباً ان شاء الله

الرد }}}}
#6
بارك الله بكم جميعاً

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


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم