[shummry]

أشكرك أخي ابو رائد على الإضافة

ولكن ما ذكرته من جعل التاريخ في متغير نصي لا يفيدني

لماذا

لأنه وببساطة أنا أريد أن أقوم بالمقارنة المتغير من نوع Date مع عدة تواريخ

وسأقوم بحساب الفرق بين تاريخين عن بالأأيام

وهذه لن تتم داخل لغة البرمجة الا بوجود متغير من نوع Date

سأطلع على الرابط الذي وضعته ولي عودة بإذن الله


تحياتي لك وجزاك الله خيرا

---

بالنسبة للدالة التي وضعتها هي ممتازة

ولكن لايوجد في هذه الدالة أي متغير من نوع Date
حتى أنني عندما قمت بتحويل التاريخ التالي 12/01/2013 الى الهجري فإنه أرجع لي قيمة 30/2/1434

وعندما عدلت الكود ليضع التاريخ الهجري في متغير Date قبل عرضة في textbox2

توقف البرنامج عن العمل لنفس الخطأ

رغم أن الكود الذي أضفته أضفته في الدالة في الأسفل قبل استعادة الاعدادات الافتراضية لل Globalization

فقط أضفت سطرا واحدا وهو

كود :

dim md as date = con

فأصبح الكود كالتالي

كود :

If y > "1883" And y < "2029" Then
                con = GetHijriDate(dateValue)
                 Dim md As Date = con
                          End If