الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة عند فحص التاريخ إذا كان اكبر ولا اصغر ولا يساوي تاريخ اليوم

مغلق
بدأه MohamedAliSalim في 20 يونيو 2006 · 3 رد · 667 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

من فضلكم ساعدوني في القضاء على هذه المشكلة

فأنا عملت لكم برنامج صغير يقوم بفحص التاريخ علشان اوريكم المشكلة فين

هناك تاريخ مكتوب في مربع نص إذا كان اكبر من التاريخ الحالي لا يكتب انه اكبر يعني مش بيحس انه فعلا اكبر بيحس بيه على أنه اصغر

واليوم كان 18/9/2006 ولقد قمت بكتابة التاريخ 18/10/2006 وضغط زر فحص ليكتب لي ان التاريخ اصغر

وعلى فكرة التاريخ عندي بيتكتب الشهر الأول ثم اليوم ثم السنة يعني 9/18/2006 ولما ادخل التاريخ 10/18/2006 لا يحس بيه زي ما انا قلتلكم هو بيحس بيه فعلا بس بيقول انه اصغر من التاريخ الحالي

فلماذا لا يحس البرنامج إنه فعلاا اكبر مش اصغر من التاريخ الحالي

أرجو تنزيل البرنامج والرد عليا

Date_Check_problem.zip

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#2

السلام عليكم

انا جربت البرنامج ولا توجد به مشكله وإنما بتعرف على التاريخ فى كله الحالات إذا كان اكبر او أصغر او مساوى له

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

DateDiff("d", "22/1/2001", "22/1/2002")

Never Give Up You Are Programmer

Being Genius Is The Step Before Madness

Artificial Intelligence Is No Match For Natural Stupidity

#3

'طب ممكن تشرحلي الدالة دي وخلي بالك ان التاوريخ بتتغير مش ثابتة

وعايزك تقولي اتاريخ عندك بيتكتب ازاي

بيتكتب الشهر الأول ثم اليوم ثم السنة ولا اليوم ثم الشهر ثم السنة

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

#4

عندي تقريبا مشكلة مشابهة

استخدمت دالة الDateDiff ومشت معي

المثال اللي عندي:

يقوم المستخدم بإدخال تاريخ بداية السنة الدراسية وتاريخ نهاية السنة الدراسية من خلال textbox

ويقوم البرنامج بطرح التاريخين من بعض واظهار عدد الأشهر


txtPeriods.Text = ""
Exit Sub
End If


If GlobalProc.isvaliddate(txtEndDate.Text) = False Then
txtPeriods.Text = ""
Exit Sub
End If

If CDate(txtStartDate.Text) > CDate(txtEndDate.Text) Then
txtPeriods.Text = ""
Exit Sub
End If

txtPeriods.Text = DateDiff("m", CDate(txtStartDate.Text), CDate(txtEndDate.Text)) + 1
	If GlobalProc.isvaliddate(txtStartDate.Text) = False Then

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…