معرفه الوقت

هل ينفع هذا الكود

TheDate = "1/25/2002"
If DateDiff("d", Now, TheDate) = 0 Then
MsgBox "the date was evaluated today"
Else
TheDate = newDate
End If

:) :) :) :) :) :)

ارجو منك ان تشرح لي الكود لاني لم افهم

dولماذا خزنت هذا التاريخ وما معنى ال

آسف فهمت مقصودك غلط ولكن هذا الكود هو ما تريدين ان شاء الله

Public saved As Boolean
Private Sub Command1_Click()
days = DateDiff("d", Date, theDate)
If saved = True And days = 0 Then
    MsgBox "you calculated the number of days before"
Else
    theDate = Date
    saved = True
End If
End Sub

وهذا هو شرح الكود

- في السطر الاول قمنا بتعريف متغير عام من نوع Boolean

- الدالة DateDiff : تقوم بإرجاع قيمة الفرق بين وقتين او تاريخين بفترة معينة (الثابت d يعني ان تكون قيمة الفرق باليوم )

- الان قيمة theDate = Empty وسوف يكون الفرق وهو ناتج الدالة لا يساوي 0 لان قيمة theDate = Empty

- قيمة المتغير saved = False وهي القيمة الافتراضية ولم نقم بتغييرها

- اذن الشرط غير صحيح وسينتقل لتنفيذ التالي

سيجعل قيمة theDate = Date أي تاريخ اليوم الحالي

وسيجعل قيمة المتغير saved = True

عند تنفيذ الكود مرة أخرى ستكون قيمة saved=true وقيمة days=0

لانه لا يوجد فرق في الزمن بين Date و theDate أكثر من يوم وسيظهر الرسالة

وعند تنفيذ الكود بعد بداية اليوم الجديد ستكون قيمة Date = تاريخ اليوم الجديد و theDate = قيمة التاريخ المخزن من أمس وسيكون الفارق = يوم واحد أي أن days لا تساوي 0 وسيتم تخزين تاريخ اليوم الجديد في theDate

وشكرا

لقد نفذت الكود لكنه دائماً يدخل في الelse حتى لو استخدمته في نفس اليوم لا يظهر لي المسج فارجو منك ان تعمل لي هذا على فورم كمثا لواسفه للازعاج