الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه FinF في 5 أغسطس 2014 · 5 رد · 2,210 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

 

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

 

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

 

هذا كود الزر :

    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

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

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

#3

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

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

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

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

 

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

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

 

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

 

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

#4

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

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

 

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
#5

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

#6

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

 

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

 

===

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

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

 

 

WindowsApplication1.zip

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…