مشكلة : التكست بوكس ينقل التاريخ الهجري للخلية كنص (وليس كتاريخ)

[أبوعيد]

السلام عليكم

هذا برنامج إجازات العاملين في مصنع

يتم إدخال الإجازة من خلال الضغط على زر inter holiday  فيظهر الفورم

 

يتم إدخال البيانات في الفورم وكتابة التاريخ الهجري وعدد الأيام

المشكلة :

بعد الضغط على ok فإن الفورم يدخل التاريخ الهجري للخلية كنص وليس كتاريخ

مع أني لو أدخلت التاريخ بالميلادي فلا توجد مشكلة

 

الخلية f8 و g8  تم إدخال قيمها عن طريق القورم فظهرت كنص ولم تتعرف عليها المعادلة في خانة المتبقي

الخلية f9 و g9  تم إدخال قيمها كتاريخ ( تم إدخال القيم مباشرة في الخلية وليس عن طريق القورم )

 

تحياتي

holiday.rar

[محمود_الشريف]

أخى فى الله

 

الأستاذ الكريم // ابو عيد

 

اليكم الملف بالمرفقات 

حسب ما فهمت من طلبكم

وهى محاولة منى أسأل المولى عز وجل أن تكون هى مرادك

وتقبل منى وافر الاحترام والتقدير

holiday_1.rar

[أبوعيد]

السلام عليكم

أخي محمود شكرا على سرعة الرد وجزاك الله خيرا

أخي العزيز الخطأ ليس في المعادلة ولكن في الفورم

 

 

المرفق التالي يبين المشكلة بالتفصيل

Doc1.rar

[عبدالله باقشير]

السلام عليكم

جرب هذا

Private Sub CommandButton1_Click()
VBA.Calendar = vbCalHijri
Application.ScreenUpdating = False

q = [b2000].End(xlUp).Row + 1
Range("b" & q) = TextBox1.Value
Range("c" & q) = TextBox2.Value
Range("d" & q) = TextBox3.Value
Range("e" & q) = ComboBox1.Value
Range("f" & q) = CDate(TextBox4)
Range("g" & q) = TextBox5.Value
Application.ScreenUpdating = True
MsgBox "data has been succesfully recorded", okonly, "attention"

VBA.Calendar = vbCalGreg
Unload Me
End Sub

تحياتي

[أبوعيد]

نعم استاذنا ومعلمنا الفاضل عبدالله باقشير

هذا هو الحل للمشكلة

جزاك الله خيرا وبارك الله فيك

[ياسر خليل أبو البراء]

أخي الحبيب وأستاذي الكبير عبد الله

جربت الكود الخاص بك ولم يفلح .. نفس المشكلة لم يتم حساب المتبقي !!

[عبدالله باقشير]

 

أخي الحبيب وأستاذي الكبير عبد الله

جربت الكود الخاص بك ولم يفلح .. نفس المشكلة لم يتم حساب المتبقي !!

 

اخي الحبيب ياسر

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

وقد تم التطبيق على TextBox4  فقط

 

تحياتي

[ياسر خليل أبو البراء]

بارك الله فيك على التوضيح .. اعذرني لأني أجهل CDate جربتها فعلا على التكست الخامس واشتغلت تمام

 

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

ولو لم يكن هناك طريقة بالمعادلات فنريد دالة تؤدي هذا الغرض لاحتياج الكثير لمثل هذه الدالة

[أبوعيد]

السلام عليكم

هذه كود لحساب الفرق بين التاريخين الهجريين أو الميلاديين

TextBox6 = DateDiff("d", TextBox4.Value, TextBox5.Value)

حيث d يعني الفرق بالأيام ويمكنك تغييره إلى m  للشهور أو Y  للسنوات

[ياسر خليل أبو البراء]

بوركت أخي الغالي أبو عيد

ما قصدته بالمعادلات ؟

نقطة أخرى حساب الفرق بين تاريخين بالأيام والشهور والسنوات كحساب تاريخ الميلاد( الفرق بين تاريخين)

[عبدالله باقشير]

 

بارك الله فيك على التوضيح .. اعذرني لأني أجهل CDate جربتها فعلا على التكست الخامس واشتغلت تمام

 

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

ولو لم يكن هناك طريقة بالمعادلات فنريد دالة تؤدي هذا الغرض لاحتياج الكثير لمثل هذه الدالة

 

 

هل رايت هذا الموضوع

 

http://www.officena.net/ib/index.php?showtopic=26727

 

تحياتي