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

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

بناء الجملة

VarType ( 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.

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

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

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

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

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

ما مدى رضاك عن جودة اللغة؟
ما الذي أثّر في تجربتك؟

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

×