الدالة VarType

تقوم بإرجاع نوع بيانات الأعداد الصحيحة يشير إلى النوع الفرعي لـ متغير.

بناء الجملة

VarType(varname)‎

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

القيم المرجعة

الثابت

القيمة

الوصف

vbEmpty

0

فارغ (غير مهيأ)

vbNull

1

فارغ (لا توجد بيانات صحيحة)

vbInteger

2

عدد صحيح

vbLong

3

عدد صحيح طويل

vbSingle

4

رقم مفرد البايت للنقطة العائمة للدقة

vbDouble

5

رقم مزدوج البايت للنقطة العائمة للدقة

vbCurrency

6

قيمة عملة

vbDate

7

قيمة تاريخ

vbString

8

سلسلة أحرف

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(object)‎ بإرجاع نوع الخاصية الافتراضية للكائن.

مثال

ملاحظة: توضح الأمثلة التالية استخدام هذه الوظيفة في وحدة (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.
مشاركة Facebook Facebook Twitter Twitter البريد الإلكتروني البريد الإلكتروني

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

رائع! هل لديك أي ملاحظات أخرى؟

كيف يمكننا تحسين ذلك؟

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

×