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

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

قام بنشر
السادة الأعضاء الكرام
ارغب من سعادتكم كتابة كود في خلية التاريخ الهجري بحيث يقرا التاريخ الميلادي الموجود ويحوله الى تاريخ هجري في الخليه والعكس 
احتاج اليها في طباعة النماذج
ولكم تحياتي
 

التاريخ الهجري.rar

  • 3 weeks later...
قام بنشر

طيب 
القى نظره على هذا الموضوع ان شاء الله تجد ماتريد
ولو تعثر عليك الامر بعد ماهدة هذا الموضوع اقوم بالتعديل على المرفق الخاص بكم 
اعتذر لضيق وقتى فى الوقت الحالى 
http://www.officena.net/ib/index.php?showtopic=59680&page=2

قام بنشر

اتفضل 
انظر فى هذه المشاركة للاستاذ الجليل والمعلم القدير رمهان جزاه الله كل الخير 

http://www.officena.net/ib/index.php?showtopic=59213&hl=%2B%D8%A8%D8%AD%D8%AB+%2B%D9%87%D8%AF%D9%8A%D8%A9

 

فيه طلبك تفصيلا كما تريد

قام بنشر

السلا عليكم 

شكرا لك اخي الكريم على وقتك القيم

 

بالنسبة لي لا اجيد فن التعابير البرمجية 

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

حاولت فتح الرابط وحملت الملف ونقل بعض الكود 

ونقلته لملفي

تقريبا زبط بس في مشكلة

لو لاحظت السجل الاول قلت له 11/3/1980 وضع لي في الخلية 1400-04-24

ولو انتقلت للسجل التالي تجد التاريخ 1400-04-24 مكتوب لوحده ؟؟؟

واذا قمت بوضع تاريخ اخر في السجل الثاني مثلا 5/5/2003 يقوم بتحويلة للهجري 

واذا رجعت للسجل السابق تجد انه قد قام بكتابة التاريخ الهجري لاخر عملية قمت باضافتها ميلاديا

واذا سكر تالملف يختفي ؟؟

مرفق الملف

 

تحويل الميلادي للهجري.rar

قام بنشر (معدل)

اخي صقر سوريا

الرابط السابق هي لمعالجة تاريخ ام القرى والذي يفرق عن التاريخ الهجري 

اما لطلبك وباسهل الطرق :

ضع الكود التالي لحدث في الحالي للنموذج :

Private Sub Form_Current()
Dim x As String
Calendar = vbCalHijri
x = t2
t1 = x
End Sub

بالتوفيق

تم تعديل بواسطه رمهان
  • Like 1
قام بنشر

الأستاذ رمهان , المحترم

السلام عليكم 

 

يعطيك العافية , عندما اقوم مثلا بوضع سجل جديد يظهر خطاء رقم 94 واجد التاريخ الهجري مكتوب قبل ان اكتب التاريخ الميلادي 

انا لدي برنامج لشؤون الموظفين والادخال انجليزي ولكن في بعض الحالت ان اردت ان اطبع تقرير اريد ان اضيف خانه تحت التاريخ الميلادي يقرأ التاريخ الميلادي ويحوله للهجري بدون ان اضغط زر للتحويل لوحدة اتوماتيكي لما اغير الميلادي يتغير الهجري 

هذا الذي احببت ان اعرف طريقة برمجة مربع النص الذي اضيفه على النموذج قبل الطباعه

قام بنشر

حياك اخي صقر سوريا

اعود لك مساء وعندما ييتتسنى لي الجلوس امام الحاسوب !

تحياتي

قام بنشر (معدل)

عزيزي

خلينا في الادخال في النموذج

طبعا امسح الكود الأول والموجود بالملف الذي بأول مشاركة وهو كما ذكرت لك خاصا بتواريخ ام القرى !

الآن الصق الحدثين التاليين :

Private Sub Form_Current()
Dim x As String
Calendar = vbCalHijri
x = Nz(t2, "")
t1 = x
End Sub

Private Sub t2_AfterUpdate()
Dim x As String
Calendar = vbCalHijri
x = Nz(t2, "")
t1 = x
End Sub

وكما تلاحظ حدث في الحالي للنموذج  وحدث بعد التعديل للعنصر t2 .

 

ومسالة التقرير : ارفق التقرير وبه المطلوب !!

 

وعلى فكرة انا اعطيتك الطريقة او الفكرة !

ولكن بعد ارسالك للتقرير : سنقوم بترتيب الفكرة بشكل اخر وافضل وعبارة عن وضع دالة عامة لهذه المهمة ونناديها في أي مكان في البرنامج !

 

بالتوفيق

تم تعديل بواسطه رمهان
قام بنشر

يعطيك ألف عافية وأزادك الله علما وشرفا وفتح عليك ابواب الرزق وييسر عليك كما يسرت علينا ولك جزيل الشكر
زبطت المعادلة

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