[shummry2]

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

يتم تعريف المتغير 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" وتعني "العربية-مصر"، فمصر غالية في قلوبنا وفيها البركة، اللهم احفظها واحفظ أهلها من كل شر يؤذيها.





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

[shummry2]

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

ثانيا

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

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

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

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

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

[shummry2]

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

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

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

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

[@@أبورائد@@]

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






الحمد لله

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

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

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 


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

[shummry2]

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

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

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

عموما

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

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

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

ممتن:o

[@@أبورائد@@]

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






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



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


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





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

[shummry2]

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

جزاك الله خير

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

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

[shummry2]

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