منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - المتغير من نوع date لا يقبل أي قيمة اليه مهما كان تنسيقها ,,,, ما القصة

الصفحات : 1 2

في المثال المرفق

يتم تعريف المتغير d من نوع date

في اجراء Button1
يتم اعطاء التاريخ الحالي الى المتغير d
تظهر msgbox بمحتويات المتغير d
يتم اسناد قيمة المتغير كما هي الى textbox1
ثم الغاء الحظر عن button2

في إجراء button2
يتم ارجاع الموجود في textbox1 الى المتغير d <<<<<<<<<< وهنا تظهر المشكلة كما في الصورة التالية

المثال المرفق لا يعمل عندي button2 بينما اصحاب الوندوز سفن تعمل بكفاءة

واتحدى اي شخص لديه ويندوز اكس بي ويعتمد التاريخ الهجري لجهازه ولديه التاريخ الميلادي لليوم هو 8/7/2013 والتاريخ الهجري 29/8/1434

اتحداه أن يعمل لديه button2 بدون مشاكل

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

جرب هذا الحل

PHP كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("ar-EG")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim d As Date
        d = CDate("10/10/1434")
        MsgBox(d)

    End Sub

End Class 

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

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

لا تستغرب من "ar-EG" وتعني "العربية-مصر"، فمصر غالية في قلوبنا وفيها البركة، اللهم احفظها واحفظ أهلها من كل شر يؤذيها.

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

اولا مصر غالية على قلوبنا هذا مما لا شك فيه

ثانيا

البرنامج ضبط 100%

ولكن ما السر ارجوك تقل لي

حتى لو استبدلت eg بــ sa

يظهر الخطأ مرة أخرى

ارجوك ارجوك ارجوك ارجوك

معليش ابو رائد

البرنامج صار يعطي قيمة التاريخ الحالي بالميلادي Sad

تعديل : تم تجاوز المشكلة

كل الشكر والتقدير لأخونا ابو رائد على تفاعله والله لا يحرمنا منه في المرات القادمة

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

الحمد لله

ولكنني أعتب على من يحل مشكلته ولا يخبرنا كيف تم ذلك.

أسأل الله أن يوفقك ويبارك فيك ويزيدك من علمه وفضله.

PHP كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("ar-EG")
        Dim d As Date
        d = CDate("10/10/1434")
        MsgBox(d)

        Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("ar-SA")
        MsgBox(Today)

    End Sub

End Class 

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

أشكرك أخي ابو رائد على تفاعلك

ولكن ما حصل لي مشكلة بسيطة لا اريد أن ازعجكم بها

وقد حللتها بنفس الطريقة التي اوردتها أنت ولكني كتبت كود مكروني طويل جدا
وانت ما شاء الله تبارك الله حللتها بسطر واحد

عموما

لازلت لم تخبرني بالفرق بين eg و sa ولماذا الاول قبل التاريخ المدخل بينما الثاني لا

وشكرا من الأعماق

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

ممتن:o

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

الحمد لله والفضل له أولاً وأخيراً.

صراحةً لست متعمقا في مسألة التأريخ، ولكن إن تيسر شرح مناسب سأضعه إن شاء الله

أذكر أحد الأعضاء ramilove له خبرة في مسألة التأريخ (أعتقد أنه متغيب أسأل الله أن يكون بخير)

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

اللهم لك الحمد

جزاك الله خير

لدى استفسار ثاني جزاك الله خير سأضعه في موضوع مستقل أتمنى تمر عليه

تحياتي لشخصك الكريم

http://vb4arb.com/vb/showthread.php?6271...D%ED-win-7

الصفحات : 1 2

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

shummry2

@@أبورائد@@

@@أبورائد@@

shummry2

shummry2

@@أبورائد@@

shummry2

@@أبورائد@@

shummry2

shummry2