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

ما الخطأ في هذا الكود لو سمحتم

مغلق
بدأه hassanco في 26 ديسمبر 2005 · 2 رد · 512 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

[dt1 = "29-12-2005"

dt2 = "01-01-2006"

dtt1 = "#" & Format(dt1, "mm/dd/yyyy") & "#"

dtt2 = "#" & Format(dt2, "mm/dd/yyyy") & "#"

If dtt1 < dtt2 = True Then

MsgBox "true"

msgbox cdate(dt1)-cdate(d2) + 1

Else

MsgBox "false"

End If

]

المفروض يطبع رسالة تقول

True لأن التاريخ الأول أقدم أو يعتبر أصغر من التاريخ الثاني

ولكن يطبع

false

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

ما هو الإعداد اللازم لتسيق التاريخ في الويندوز وفي الكود حتى يقبل جميع التواريخ ومقارنتها في أي سنة سواء في المقارنة بين تاريخين أو في طرح تاريخين من بعض

وشكرا جزيلاً

تم تعديل هذه المشاركة بواسطة hassanco في 26 ديسمبر 2005 في 10:49

بارك الله فيكم على هذا المنتدى الرائع والمتميز

حسن ..... مبرمج ..... فلسطين

hassan.alaraishy@gmail.com

#2

أخي hassanco

Dim dt2 As Date
Dim dt1 As Date
dt1 = "29-12-2005"
dt2 = "01-01-2006"
If CDate(dt1) < CDate(dt2) Then
MsgBox "true"
Else
MsgBox "false"
End If
#3

تم حل السؤال بواسطة الاخ yasserstars مشكورا :)

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

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

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