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

نسخة كاملة : كيف يمكنني تحويل التقويم من هجري إلى ميلادي والعكس؟؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمن الرحيم

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

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

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


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

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


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

والله الموفق
أشكرك أخي الكريم  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"

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