كيفية ضبط هذه المقارنة بشكل صحيح في تاريح - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28) +---- الموضوع : كيفية ضبط هذه المقارنة بشكل صحيح في تاريح (/showthread.php?tid=19155) الصفحات:
1
2
|
كيفية ضبط هذه المقارنة بشكل صحيح في تاريح - عمر سالم - 07-02-17 السلام عليكم ورحمة الله وبركاتة If DTPicker1 > Date Then Text1 = 0 Else Text1 = 1 End If بمعنى اذا تاريخ الموجود اكبر من تاريخ اليوم تكست 1=Text1 والا العكس RE: كيفية ضبط هذه المقارنة بشكل صحيح في تاريح - السيد الغالي - 07-02-17 الاخ عمر السلام عليكم الكود الذي ارفقته سليم ولا توجد به اي مشكلة كما تلاحظ في المرفق RE: كيفية ضبط هذه المقارنة بشكل صحيح في تاريح - عمر سالم - 07-02-17 وعليكم السلام استاذنا السيد اغالي الكود يعمل في حال غير بداية الرقم في تاريخ مثال اذا تاريخ الموجود 07/01/2015 اذا قمت بتغير 09/01/2015 يشتغل ولكن اذا قمت بتغير الي 01/01/2017 هنا المشكلة لا يعمل يعني اذا غيرت الشهر او السنه لا يتغير RE: كيفية ضبط هذه المقارنة بشكل صحيح في تاريح - sendbad100 - 08-02-17 السلام عليكم جرب الكود التالي كود : If Format(DTPicker1, "dd/MM/yyyy") > Format(Date, "dd/MM/yyyy") Then RE: كيفية ضبط هذه المقارنة بشكل صحيح في تاريح - السيد الغالي - 08-02-17 (07-02-17, 10:07 PM)عمر سالم كتب : وعليكم السلام استاذنا السيد اغالي اخي العزيز عمر سالم السلام عليكم بطبيعة الحال لا يتغير لان التاريخ (01/01/2017 ) اصغر من تاريخ اليوم لان الشرط يكون text1=0 في حال كان تاريخ اليوم اصغر RE: كيفية ضبط هذه المقارنة بشكل صحيح في تاريح - عمر سالم - 08-02-17 (08-02-17, 12:20 AM)السيد الغالي كتب :اسف اخي السيد اقصد 01/01/2018 فانه لايعمل(07-02-17, 10:07 PM)عمر سالم كتب : وعليكم السلام استاذنا السيد اغالي (08-02-17, 12:06 AM)sendbad100 كتب : السلام عليكممرحبا سند نفس المشكلة يتغير dd ولكن الشهر وسنه فلا يتاثر بذلك الكود يتغير مره واحده فقط في حال قمت بتغير مره تانية لا يستجيب RE: كيفية ضبط هذه المقارنة بشكل صحيح في تاريح - السيد الغالي - 08-02-17 (08-02-17, 01:47 AM)عمر سالم كتب :اخي العزيز عمر(08-02-17, 12:20 AM)السيد الغالي كتب :اسف اخي السيد اقصد 01/01/2018 فانه لايعمل(07-02-17, 10:07 PM)عمر سالم كتب : وعليكم السلام استاذنا السيد اغالي ربما هناك التباس في فهم سؤالك يرجى ارفاق صورة لما يحدث عندك . رغم انه يعمل عندي بشكل طبيعي كما في الصورة المرفقه RE: كيفية ضبط هذه المقارنة بشكل صحيح في تاريح - عمر سالم - 08-02-17 (08-02-17, 02:13 AM)السيد الغالي كتب :اوك , سوف احاول توصيل فكرتي(08-02-17, 01:47 AM)عمر سالم كتب :اخي العزيز عمر(08-02-17, 12:20 AM)السيد الغالي كتب :اسف اخي السيد اقصد 01/01/2018 فانه لايعمل(07-02-17, 10:07 PM)عمر سالم كتب : وعليكم السلام استاذنا السيد اغالي اذا كتبت التاريخ هكذا 1 والذي هو اليوم و 2 والذي هو الشهر و 2017 هو السنه فان الكود يقوم بقرائة اليوم اي 1 فقط ولا يلتفت لباقي الناريخ لا لشهر ولا لسنه وبعدها اذا انت اردت تغير مثلا التاريخ فلا يتغير لا اكبر ولا اصغر يكون بقرائة اول قيمة ادخلتها الا اذا رجعت من الفورم ودخلت عليه من جديد يتغير ولكن بنفس الطريقة اي يقوم بتعامل مع المعامل الاول والذي هو DD RE: كيفية ضبط هذه المقارنة بشكل صحيح في تاريح - السيد الغالي - 08-02-17 ضع هذا الكود Private Sub DTPicker1_Change() If DTPicker1 > Date Then Text1 = 0 Else Text1 = 1 End If End Sub سيتاخر قليلا ولكنه يعمل بالاخير RE: كيفية ضبط هذه المقارنة بشكل صحيح في تاريح - عمر سالم - 08-02-17 مشكور جدا خوي السيد لكن لاسف نفس المشكلة انا عايز من القصه هذه الاتي انا عامل حقل اسمو hala اريد اذا كان التاريخ الموجود اكبر من تاريخ اليوم تكون قيمة هذا الحقل 0 واذا كان اصغر يساوي 1 عملت كود لكن ما ضبط قلت اجرب الطريقة الذي سالت عنها لكم تحياتي |