• 0
الهاوي 2009

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

سؤال

بسم الله الرحمن الرحيم

وبعد بحث طويل عن محول تاريخ يعمل بشكل جيد ها انا اليوم وبحمد الله انجز هذا المشروع واضعه بين ايديكم ليستفيد منه الاخوان الكرام . قد يشتكي البعض من طول الكود الى انني حرصت ان تكون على شكل دالة حتى يتسنى للجميع نقل هذه الدالة كما هي واستخدامها في تطبيقاته المختلفة كما يحلو له . المثال في المرفقات . وانا في استعداد تام للاجابة على اي تساؤلات , ولااريد منكم الى الدعاء وشكراً .

ConvDate.zip

تم تعديل بواسطه الهاوي 2009
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

برنامج جميل ومفيد

ولا يخلو برنامج (نظام) من استخدام التاريخ وهذا الدالة ستفيد كثراُ في هذا الانظمة

شكرا للك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مشكور جداً و فعلاً دالة مهمة جداً لكل مصممي النظم و خاصة في المملكة العربية السعودية

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله الرحمن الرحيم

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

أخي العزيز :: الهاوي 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

أتمنى لك التوفيق أخي الهاوي في الدنيا والآخرة

وكل عام وأنتم بخير

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

تم تعديل بواسطه المبرمج أحمد
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي الهاوي 2009

الدالة التي استخدمتها في البرنامج فعلا تقوم بتحويل التاريخ وبدون خطأ كما يحدث في دالة الفجول بسيك Calendar = vbCalHijri

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الدالة تعمل جيدا جدا

مشكور علي هذا الجهد

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .