اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

السلام عليكم

قمت بعمل دالة للتعرف على التاريخ الهجري وتحويله الى ميلادي للتعامل معه الدالة 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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information