• 0
FinF

تحويل التاريخ هجري لميلادي والعكس

سؤال

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

 

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

 

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

 

هذا كود الزر :

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click          Dim DateTime1 As Date = DateTime.ParseExact(txtgb.Text, "dd/MM/yyyy", System.Globalization.CultureInfo.InvariantCulture)        txthijiri.Text = ToHijra(DateTime1, "dd/MM/yyyy")    End Sub

وهذا كود المتغير :

    Function ToHijra(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String        Return gDate.ToString(format, New Globalization.CultureInfo("ar-SA"))    End Function

حاولت استفيد من نفس الكود للتحويل من الهجري للميلادي لكن ما ضبط معي

آمل الافادة ، ولكم جزيل الشكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

اتمني ان تفيدك هذه المشاركة

 

تحويل التاريخ من هجري الي ميلادي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شاهدت ردودك مسبقا اخوي محمد

وحاولت قبل وضع الموضوع ولكن لم تنجح

خاصة وان حقول النص ملفات تاخذ التاريخ الحالي

وانا ارغب بادخال التاريخ بشكل يدوي

 

طلبي بتفصيل ادق :

ارغب بوضع حقلين تكست بوكس وزرين للتحويل

 

كل حقل يقبل ادخال النص بالطريقة التالية : 01/01/1435 او للميلادي 01/01/2014

 

ان شاء الله اجد الحل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ليش يظهر لي هذا المسج في حالة التحويل من الميلادي الى الهجري ؟

علما بان التحويل من هجري الى ميلادي يشتغل سليم !!

 

dfcd9f8e1c34a46.png

 

 

 

 

هذا الكود كامل

    Function eg(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String        Return gDate.ToString(format, New Globalization.CultureInfo("ar-eg"))    End Function    Function ToHijra(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String        Return gDate.ToString(format, New Globalization.CultureInfo("ar-SA"))    End Function    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim dt As Date        dt = CDate(TextBox1.Text.ToString)        TextBox2.Text = Format(ToHijra(dt, "dd/MM/yyyy"))    End Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        Dim dt As Date        dt = CDate(TextBox2.Text.ToString)        TextBox1.Text = Format(eg(dt, "dd/MM/yyyy"))    End Sub
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

آمل ان اجد الحل او التعليق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تم حل المشكلة ولله الحمد ..

 

وتم ارفاق الملف للفائدة

 

===

الحل كان من احد ردود اخوي SNDBAD

اضافةً لبعض التعديلات على ملف اخوي محمد فؤاد

 

 

WindowsApplication1.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .