دالة DateDiff ...... ما هو الخطأ هنا

الكود سليم ..

ما هي الرسالة التي تخرج لك ؟؟

السلام

أخي العزيز أضن الخطأ أنك ما أستعملت textbox

مرة استعملت أني osenxp textbox

لأنه حلو

بس أن بالعادة بكتب

text1 = "superboy"

هذا خطأ مع osenxpsuit

يجب أن تكتب الصراحة عقدتني و أنا دور على المشكلة

text1.text = "ghg"

اما

اقتباس

Dim nowDate as Date
Dim myDate As Date
Dim MonthNum

nowDate=Date
myDate = Format((TextDay1 + "/" + TextMonth1 + "/" + Str(Val(TextYear1))), "DD/MM/YYYY")

MonthNum=DateDiff("m",nowDate,myDate)

الرسالة التي تظهر هي كالتالي:

typemismatch

ويشير الى السطر الاخير كما ذكرت سابقاً

وبالنسبة لطرقتك أخي superboy فقد جربتها على النحو التالي

 Text.text=DateDiff("m",nowDate,myDate)
myDate=CDate(text.text)

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

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ...

جرب الكود التالي :

Dim nowDate As Date, myDate As Date
Dim MonthNum As Integer

	nowDate = Date
	myDate = DateSerial(TextYear1, TextMonth1, TextDay1)

	MonthNum = DateDiff("m", nowDate, myDate)

والسلام عليكم ،،

حل سريع :

لا تعرف المتحولات كتواريخ .

أخي المبرمج أحمد

جربت الكود الذي اعطيتني اياه ولم ينجح للأسف... شكراً على كل حال

اخي Qousay

لم أعرف المتحولات في البرنامج

لكن عرفتها هنا للتوضيح فقط لا غير

تشكر على مررك :)

الرجاء المساعدة اخواني لبد لي من تسليم المشروع قريباً :(

جرب

If IsDate(nowDate) And IsDate(myDate) Then

MonthNum = DateDiff("m", nowDate, myDate)

Else

If IsDate(nowDate) = False Then MsgBox "nowDate " & CStr(nowDate)

If IsDate(myDate) = False Then MsgBox "myDate " & CStr(myDate)

End If

لو ان myDate او nowDate به قيمة لا تصلح كتاريخ ستجد رسالة باسم لمتغير الخطأ