تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف يمكنني تحويل التقويم من هجري إلى ميلادي والعكس؟؟
#1
بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

لدي مشكلتين اتمنى منكم المساعدة في حلها 

ٍاولا كيف يمكنني التحويل من تقويم ميلادي إلى هجري والعكس؟؟ (من غير التأثر بتقويم الجهاز)
جربت الكود التالي واشتغل كويس في حالة كان تقويم الجهاز هجري لكن اذا قمت بتحويل تقويم الجهاز إلى ميلادي فإنه لا يعترف بالتقويم الهجري الذي عرفته في الكود


PHP كود :
Dim cltAR As New CultureInfo("ar-SA"' التقويم الهجري
        Dim cltEN As New CultureInfo("en-US") ' 
التقويم الميلادي

        
' لعرض تاريخ اليوم بالتقويم الهجري
        MsgBox(Now.ToString("yyyyMMdd", cltAR))

        ' 
لعرض تاريخ اليوم بالتقويم الميلادي
        MsgBox
(Now.ToString("yyyyMMdd"cltEN)) 

ثانيا لدي مشكلة أخرى وهي تحويل السلسلة النصية إلى تاريخ
جربت الدالتين أدناه ولكن لا تعمل بشكل صحيح
حيث أنها إذا كان تقويم الجهاز ميلادي فإنها لا تحول إلا إلى ميلادي
أما إذا كان تقويم الجهاز هجري فإنها لا تحول إلى إلى هجري

PHP كود :
       Dim tempDate As DateTime Convert.ToDateTime(TextBox2.Text

PHP كود :
       Dim tempDate As DateTime CDate(TextBox2.Text

أتمنى أن أجد لديكم حل لمشكلاتي وشكرا لكم مقدما
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله انظر الموضوع التالي 


http://vb4arb.com/vb/showthread.php?tid=...4#pid94654

والله الموفق
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
#3
أشكرك أخي الكريم  sendbad100 

والأكواد اشتغلت معي ممتازة بس باقي التحويل من ميلادي إلى هجري لم يعمل بالشكل الصحيح

PHP كود :
 Dim ar As CultureInfo = New CultureInfo("ar-SA")
 
       Thread.CurrentThread.CurrentCulture ar

        ar
.DateTimeFormat.Calendar = New HijriCalendar
        ar
.NumberFormat.DigitSubstitution DigitShapes.NativeNational
        Dim tempDate 
As DateTime Convert.ToDateTime("01/02/2017")

 
       TextBox2.Text Format(tempDate"dd/MM/yyyy"

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مطلوب كود بسيط تحويل القريد فيو في الوورد نور الهدى الهدى 6 176 08-01-19, 03:45 PM
آخر رد: نور الهدى الهدى
  عملية تحويل رقم reverse fouadhdfouad 5 90 30-12-18, 05:50 PM
آخر رد: a.wagdi
  [سؤال] تحويل اسم من جدول الى جدول اخر komar 2 91 17-12-18, 09:12 PM
آخر رد: elgokr
  [سؤال] تحويل مشروع فيجوال بيسك الى برنامج exe Simo1991 1 124 17-12-18, 01:43 AM
آخر رد: محمد كريّم
  مساعدة في تحويل مشروع فيجوال 6 samira20 6 189 29-11-18, 09:56 PM
آخر رد: asemshahen5
  [سؤال] تحويل مشروع من 2017 الى 2008 assem 2 98 21-11-18, 05:42 PM
آخر رد: elgokr
Exclamation [VB.NET] كيف يمكنني أن أعرف هل تم الضغط على زر نجمة * sniperjawadino 4 219 07-11-18, 07:13 PM
آخر رد: sniperjawadino
  كيف يمكنني الحصول علي البيانات من قاعدة اكسس salahmax12 2 117 30-10-18, 10:10 PM
آخر رد: sads
  كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل سنة mram3242 11 623 30-10-18, 01:34 AM
آخر رد: DOX.1
  ممكن مساعد في تحويل كود الزوي 3 160 25-10-18, 12:44 AM
آخر رد: الزوي

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


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