+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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
RE: كيفية ضبط هذه المقارنة بشكل صحيح في تاريح - السيد الغالي - 08-02-17
اخي عمر السلام عليك
ان سؤالك هذا ابسط ما يكون لكن يبدو ان هناك شيء غير واضح في المسأله لذا ارجو ارفاق مثالك حتى يتسنى لنا حل هذه الاشكالية
RE: كيفية ضبط هذه المقارنة بشكل صحيح في تاريح - sendbad100 - 08-02-17
السلام عليكم
.اخي عمر
هل تاريخ جهازك ميلادي ام هجري
يجب ان يكون ميلادي
اذاكان تاريخجهازك بالميلادي
قم بعمل تنسيق لتاريخ الجهاز بهذه الصورة "dd/MM/yyyy"
اذا كل ما سبق تمام في جهازك ولا تزال المشكلة
طبق هذا الكود
كود :
Private Sub Command1_Click()
Dim a As Long, b As Long
a = Val(Format(DTPicker1.Value, "yyyyMMdd"))
b = Val(Format(Date, "yyyyMMdd"))
If a > b Then
Text1 = 0
Else
Text1 = 1
End If
End SubRE: كيفية ضبط هذه المقارنة بشكل صحيح في تاريح - عمر سالم - 08-02-17
بارك الله فيكم جميعاً نسال الله بان يجعلكم رفقاء النبي علية الصلاة والسلام في الفردوس الاعلى من الجنة
تمت تجربة كود الاستاذ sendbad100 بنجاح
الشكر موصوول لجميع الاخوة