اريد كود يقارن بين تاريخين

والله مادري

ولكن اسألك واشوفلك

وان شاء الله الاعضاء يساعدوك

انا حطيت الرد للرفع

سلام عليكم

السلام عليكم

سوف اعطيك فكرة اتوقع ان تفيدك

اول شي بتاخد التاريخ الاول و تضعه في تكست بوكس

وكذلك التاريخ الثاني

و تقتطع من التكست بوكس الاولى اول رقمين اللذان يمثلان اليوم و كذلك من التكست الثانية و تقارنهم

ثم تنتقل الى الشهر و السنة و هكذا

فاذا كان اليوم ناتجه سالب تزيد عليه بمقدار 30 يوم و تنقص شهر واحد من الاشهر

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

صحيح لما لم تجرب المقارنة المباشرة

مثل التاريخ1<التاريخ الثاني

او التاريخ1-التاريخ2

و اطلع النتيجة و عاود تحويلها من integer الى تارخ عن طريق العمليات الحسابية

اقتباس

صحيح لما لم تجرب المقارنة المباشرة

مثل التاريخ1<التاريخ الثاني

او التاريخ1-التاريخ2

و اطلع النتيجة و عاود تحويلها من integer الى تارخ عن طريق العمليات الحسابية

والله ما فهمت شي منك اخوي معليش

ممكن توضح لي اكثر او ترفق لي مشروع؟؟

سوي كلندرين

Calender1

Calender2

وتكست بوكسText1

واكتب الكود التالي

text1.text = calender2.value - calender1.value

سلام

DateDiff("n", Time, Time1)

أضن أن العملية تكون عند الدالة DateDiff تقوم هذه الدالة بإعادة الفرق بين تارخين

تحياااااتي

ياK.I.Dانت اعطيتني الكود على المسنجر و قلت لك على عيوبهاخوي ابو فهيدممكن ترفق لي مثال ؟؟

طيب ياخي انت مشكلتك انك تنظر في اتجاه واحد ولا تنظر في جميع الاتجاهات

الان انت تبي التاريخ المكتوب يتحول

اوكي

عندي 3 تكست بوكسات

Text1

Text2

Text3

كالندرين

Calender1

Calender2

الان في قاعدة البيانات تاريخ الانشاء مرتبط مع Text1

وتاريخ الانتهاء مرتبط مع Text2

حلو ؟

اول خطوة

Private Sub Form_Load ()
calender1.value = text1.text
calender2.value = text2.text
end sub

كذا احنا نحول الارقام الى تورايخ

بعدين نقارن ونطلع النتيجة

نضيف الكود التالي الى زر امر اواي شي يعجبك

text3.text = calender2.value - calender1.value

وسلامتك

طيب يا كي اي دي

ارفق لي مثال تكفى

معليش اعذروني لاني اساسا الفكرة و الموضع مو ادخل راسي بس مطلوب مني الكود هذا

فممكن مثال

اخواني فكرة اخوي كي اي دي

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

لان التكست بوكس يقرِأ اول تاريخ في القاعدة

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

اتوقع هذا الكلام باستخدام امر اسمه Loop على ما اتوقع

بس ماني عارف استخدم هذا الامر

اذا ممكن تسوولي المثال مرفق اليوم لاني محتاجه ضروري

و لازم اسلم المشروع خلال الثلاث ايام هذي

انا فعلت اول خطوة

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

انتوا شوفوا المشروع المرفق

و شوفوا الي سويته بس باقي اني اجعل المربع النصي الثاني يمر به جميع التواريخ التي في قاعدة البيانات و اذا ما فهمتوا قصدي

شوفوا الرد السابق و رح تفهموا

اليكم المشروع

Help_Me.zip

اللوب هذي معناها انه امر معين يتنفذ اكثر من مرة الى انك تصل الى نتيجة معينة

عندك ثلاث انواع من اللوب

For Loop

و Do until

و Do while

نبدا شرح ال For Loop

هذي يابو الشباب تعيد الامر عدد من المرات انت تحدده

يعني مثلا

For i = 1 to 3 step 1
اي امر هنا او اي كود تبي ينعاد
next i

الان نشرح الكود

i هو المتغير

1 to 3

عدد المرات اللي تبي ينعاد الكود فيها

step 1

عدد الخطوات اللي يتخطاها

مثلا لو حطينا 2

يصير ينفذ الخطوة 1

بعدين 3

فهمت ؟

next i

الخطوة اللي بعدها

ننتقل لل Do Until

هذي قريبة من ال Do While

ولكن الفرق هو انه في ال Do Until

ينفذ الامر بعدين يشيك الشرط اللي يوقف اللوب

وفي ال Do While

يشيك الشرط ثم ينفذ الامر

مثال على ال Do Until

Do until text1.text = 3
text1.text = text1.text + 1
loop

الان شرح الكود

Do until text1.text = 3

هذا معناه كرر تنفيذ الامر لين ما نوصل لنتيجة انه Text3.text يساوي الرقم 3

text1.text = text1.text + 1

هذا معناه واضح

ضيف واحد على Text1.text

و اخر كلمة Loop هي اللي تقفل الامر

شفت هنا في هذي اللوب ينفذ الامر بعدين يشيك اذا تحقق الشرط

وفي اللوب الاخيرة نفس السالفة ونفس الكود ولكن يشيك الشرط ثم ينفذ الامر

ولهم استخداماتهم

وانا بعدلك في المشروع واحطه لك

تحياتي

اقتباس

وانا بعدلك في المشروع واحطه لك

مشكور يا K.I.D على وقفتك معي

و تم التواصل مع الكي اي دي على الماسنجر

و سوينا الكود

و طورنا الفكرة اكثر

و اكرر شكري لك يا K.I.D

سلام عليكم

العفو حبيبي

هذا اقل شي نسويه

تحياتي

عزيزي حول التاريخ إلى رقم ثم إجمع وطرح وقسم كما تريد

مثال للتحويل

Dim c As Currency

Dim d As Date

d = Date

c = d

Text1 = c

ولعكس العملية اكتب d=c لتعيد القيمة إلى تاريخ

مساعدة متواضعة

أرجوا الاستفادة منها و الدعاء

For_You.rar

ترا حليناه وطريقة الحل كانت احسن من هذي

معليش لكن هذي هي الحياة

صعبة

وياليت احد يكلم المسؤولين يسهلو المناهج

هههههههههههههههههههههههههههههههه

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

سلام

matrixyb كتب:

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

انا عندي مشروع هو عبارة عن برنامج تجاري

المهم

لمن عميل يستاجر من عندي قطعة رح اسجل تاريخ الاستاجار و رح اسجل تاريخ الانتهاء في قاعدة البيانات

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

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

و شكرا لكمممممممممممممممم

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

' ضع هذا الكود في الفورم

Private Sub Command1_Click()

On Error GoTo 1

Dim Form1Date As Date

Dim Form2Date As Date

Form1Date = Text1.Text

Form2Date = Text2.Text

Text3.Text = DateDiff("d", Text1.Text, Text2.Text) & " يوم"

Exit Sub

1 MsgBox ("من فضلك أدخل التاريخ بشكل صحيح")

End Sub

وهذا لمعرفة الشهر الحالي

' ضع هذا الكود في الفورم

Private Sub Command1_Click()

Mmonth = Mid(Date, 4, 2)

Print MonthName(Mmonth)

End Sub

اتمنى ان يكون الكود افادك