بسم الله الرحمن الرحيم
وبعد بحث طويل عن محول تاريخ يعمل بشكل جيد ها انا اليوم وبحمد الله انجز هذا المشروع واضعه بين ايديكم ليستفيد منه الاخوان الكرام . قد يشتكي البعض من طول الكود الى انني حرصت ان تكون على شكل دالة حتى يتسنى للجميع نقل هذه الدالة كما هي واستخدامها في تطبيقاته المختلفة كما يحلو له . المثال في المرفقات . وانا في استعداد تام للاجابة على اي تساؤلات , ولااريد منكم الى الدعاء وشكراً .
تم تعديل هذه المشاركة بواسطة الهاوي 2009 في 17 ديسمبر 2006 في 11:59
برنامج جميل ومفيد
ولا يخلو برنامج (نظام) من استخدام التاريخ وهذا الدالة ستفيد كثراُ في هذا الانظمة
شكرا للك
مشكور جداً و فعلاً دالة مهمة جداً لكل مصممي النظم و خاصة في المملكة العربية السعودية
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته ...
أخي العزيز :: الهاوي 2009 ::
لدي ملاحظة صغيرة على الدالة : عند التحويل من التاريخ الهجري إلى التاريخ الميلادي يعطيك الناتج مضافًا إليه يومًأ واحدًا ، أما العكس فيعطيك الناتج ناقصًا يومًا واحدًا.
جزاك الله خيرًا على هذه الدالة ونفع بك الإسلام والمسلمين . ولكن في الفيجوال بيسك 6 يوجد البديل الأسرع ، إليك الكود التالي :
* للتحويل من هجري إلى ميلادي :
Dim TheDate As Date Calendar = vbCalHijri TheDate = "15/06/1411" Calendar = vbCalGreg MsgBox TheDate
* للتحويل من ميلادي إلى هجري :
Dim TheDate As Date Calendar = vbCalGreg TheDate = "1/1/1991" Calendar = vbCalHijri MsgBox TheDate
أتمنى لك التوفيق أخي الهاوي في الدنيا والآخرة
وكل عام وأنتم بخير
والسلام عليكم ورحمة الله وبركاته ..
تم تعديل هذه المشاركة بواسطة المبرمج أحمد في 31 ديسمبر 2006 في 23:16
سبحان الله وبحمده ... سبحان الله العظيم
أخي الهاوي 2009
الدالة التي استخدمتها في البرنامج فعلا تقوم بتحويل التاريخ وبدون خطأ كما يحدث في دالة الفجول بسيك Calendar = vbCalHijri
الدالة تعمل جيدا جدا
مشكور علي هذا الجهد
بسم الله الرحمن الرحيم
{وقل اعملوا فسيرى الله عملكم ورسوله والمؤمنون}
صدق الله العظيم
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…