تخطي إلى المحتوى الرئيسي
الدعم
تسجيل الدخول باستخدام حساب Microsoft
تسجيل الدخول أو إنشاء حساب.
مرحباً،
تحديد استخدام حساب مختلف!
لديك حسابات متعددة
اختر الحساب الذي تريد تسجيل الدخول باستخدامه.

إرجاع عدد صحيح يشير إلى النوع الفرعي متغير.

بناء الجملة

VarType ( varname )

وسيطة varname المطلوب هو متغير يحتوي على أي متغير باستثناء متغير من نوع معرف من قبل المستخدم.

إرجاع القيم

ثابت

قيمة

الوصف

vbEmpty

0

فارغ (غير متحضر)

vbNull

1

Null (لا توجد بيانات صالحة)

vbInteger

2

العدد الصحيح

vbLong

3

عدد صحيح طويل

vbSingle

4

رقم الفاصلة العائمة أحادية الدقة

vbDouble

5

رقم الفاصلة العائمة مزدوجة الدقة

vbCurrency

6

قيمة العملة

vbDate

7

قيمة التاريخ

vbString

8

String

vbObject

9

عنصر

vbError

10

قيمة خطأ

vbBoolean

11

قيمة منطقية

vbVariant

12

متغير (يستخدم فقط مع صفائف المتغيرات)

vbDataObject

13

كائن الوصول إلى البيانات

vbDecimal

14

قيمة عشرية

vbByte

17

قيمة البايت

vbUserDefinedType

36

المتغيرات التي تحتوي على أنواع معرفة من قبل المستخدم

vbArray

8192

صفيف


ملاحظة: يتم تحديد هذه الثوابت بواسطة Visual Basic for Applications. يمكن استخدام الأسماء في أي مكان في التعليمات البرمجية بدلا من القيم الفعلية.

ملاحظات

لا ترجع الدالة VarType قيمة vbArray بنفسها. تتم إضافته دائما إلى بعض القيم الأخرى للإشارة إلى صفيف من نوع معين. يتم إرجاع vbVariant الثابت فقط بالاقتران مع vbArray للإشارة إلى أن الوسيطة إلى الدالة VarType هي صفيف من النوع Variant. على سبيل المثال، يتم حساب القيمة التي تم إرجاعها لصفيف من الأعداد الصحيحة على أنها vbInteger + vbArray، أو 8194. إذا كان العنصر يحتوي على خاصية افتراضية ، فإن VarType(كائن) يرجع نوع الخاصية الافتراضية للكائن.

مثال

ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة Visual Basic for Applications (VBA). لمزيد من المعلومات حول العمل مع VBA، حدد مرجع المطور في القائمة المنسدلة بجوار البحث وأدخل مصطلحا واحدا أو أكثر في مربع البحث.

يستخدم هذا المثال الدالة VarType لتحديد النوع الفرعي للمتغير.

Dim IntVar, StrVar, DateVar, MyCheck
' Initialize variables.
IntVar = 459
StrVar = "Hello World"
DateVar = #2/12/69#
MyCheck = VarType(IntVar) ' Returns 2.
MyCheck = VarType(DateVar) ' Returns 7.
MyCheck = VarType(StrVar) ' Returns 8.

هل تحتاج إلى مزيد من المساعدة؟

الخروج من الخيارات إضافية؟

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

تساعدك المجتمعات على طرح الأسئلة والإجابة عليها، وتقديم الملاحظات، وسماعها من الخبراء ذوي الاطلاع الواسع.

هل كانت المعلومات مفيدة؟

ما مدى رضاك عن جودة اللغة؟
ما الذي أثّر في تجربتك؟
بالضغط على "إرسال"، سيتم استخدام ملاحظاتك لتحسين منتجات Microsoft وخدماتها. سيتمكن مسؤول تكنولوجيا المعلومات لديك من جمع هذه البيانات. بيان الخصوصية.

نشكرك على ملاحظاتك!

×