اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

قمت بعمل دالة للتعرف على التاريخ الهجري وتحويله الى ميلادي للتعامل معه الدالة DATEDIF


Function MyDate(MyCel As String)

Calendar = vbCalHijri

If IsDate(MyCel) Then MyDate = CDate(MyCel)

End Function

جرب المرفق

الفرق بين تاريخين.rar

قام بنشر

يبدو ان دالة الاستاذ عبدالله هي الاصح لانها تتعامل مع التاريخ كسنوات هجرية

بينما تتعامل دالتي كميلادية وهناك فرق واضح

بارك الله فيك استاذ عبدالله

قام بنشر

اشكركم من اعماق قلبي

ودالة الاستاذ/ عبدالله باقشير هي ما اطلبة

اللهم اجعل ما تقومون به في موازين اعمالكم

تحياتي لكم جميعا

قام بنشر

الاستاذ عبدالله باقشير بعد التحيه

للاسف لم تنفع الداله معي لانها خاصة بحساب العمر

المطلوب هو ان تكون كل السنوات على اساس 360 يوم والاشهر 30 يوم

لان ما اريد حسابة هو خدمة الموظف بالتارخ الهجري

ارجو المساعدة

قام بنشر

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

بعد اذن استاذي الكبير عبدالله

واخي الحبيب ابو احمد

هذا فكرة اخرى للحل باستخدام الدوال

الفرق بين تاريخين هجري او ميلادي بالدوال.rar

  • 3 years later...
قام بنشر
في ٤‏/٦‏/٢٠١٢ at 17:48, عبدالله باقشير said:

السلام عليكم

 

دي دالةقديمة عملتها بالكود

 

يمكن تنفع معاك

 

المرفق2003/2007

الفرق بين تاريخين.rar

استادي العزيز حاولت اكتب الدالة اكثر من مرة ولم تفلح محاولاتي بالنجاج ارجوا مساعدتي

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information