كيف اعرف نوع البيانات اللي المستخدم دخلها ؟

يمكنك معرفة نوع الـobject عن طريق الميثود GetType

If obj.GetType is GetType(integer) then...

مشكور اخي ولكن

انظر الى هذا الكود

  Dim x As Object

		x = TextBox1.Text


		If x.GetType Is GetType(Integer)  Then
			MsgBox("Integer")
		ElseIf x.GetType Is GetType(String)  Then
			MsgBox("String")
		ElseIf x.GetType Is GetType(Decimal)  Then
			MsgBox("Dec")
		End If

في جميع الحالات يعطي استرينج....

لأن قيمة textbox.text دائماً string و ليست object حتى عندما تكون أرقاماً.

يمكنك معرفة إذا كانت القيمة رقمية عن طريق الدالة IsNumeric

If IsNumeric(textbox.text) then ...

و هناك دالة اسمها IsDate تستخدم بنفس الطريقة

انا عارف الوال دي

بس انا كنت محتاج ال Decimal

هل في دالة ليها ؟

MohamedAliSalim كتب:

انا عارف الوال دي

بس انا كنت محتاج ال Decimal

هل في دالة ليها ؟

لا توجد دالة جاهزة، و لكن يمكنك التعرف على أن الرقم decimal بوجود أرقام يمين الفاصلة العشرية.

If (cdec(x))-Floor(cdec(x)))>0 then ....

thanks

وجاري المناقشة