كيف أقوم بطرح تاريخين فى نموذج الأكسس بشرط

[ممدوح عبداللاه]

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

كل عام والأمة الاسلامية بخير وسلام بمناسبة عيد الأضحى المبارك

أفيدونى علماً كيف أقوم بطرح تاريخين فى نموذج الأكسس بشرط تاريخ ثابت 1/10/2007

مثلاً

1/10/2007 - 20/5/1994

[محب العلم]

ممدوح ،

اليك مثال

كود

Dim TheDate As Date    
Dim Msg
TheDate = InputBox("Enter a date")
Msg = "Days from today: " & DateDiff("d", Now, TheDate)
MsgBox Msg

 

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

كود

MsgBox DateDiff("d", #5/20/1994#, #1/10/2007#)

ويمكن أن تظهر النتيجة

yyyy بالسنوات
m بالأشهر
d أيام
ww الأسابيع
h الساعات
n الدقائق
s الثواني

تحياتي

تم تعديل أبريل 8, 2014 بواسطه أبا عمر

[ممدوح عبداللاه]

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

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