دليل استخدام إجراءات VBAppAss.dll للمبرمجين بلغة Visual Basic 6.0

الدالة IsInteger

التأكد مما إذا كانت خاصية أو تعبير من النوع string يمثل عدداً صحيحاً أم لا (أي يمكن تحويل النص إلى عدد صحيح).

الصيغة:

Function IsInteger(Text As String) As Boolean

الصنف:
TNumber.

الوسائط (Parameters):

الشرح:
إذا كان من الممكن تحويل النص Text إلى عدد صحيح - أي أن النص يتكون فقط من الأرقام (0 إلى 9) مع إشارة اختيارية (+ أو -) - فإن الدالة تعيد True، و إلا فإنها تعيد False. العدد يجب أن لا يتجاوز نطاق النوع Long.

الاستخدام:

Dim ObjNumber As New TNumber

If Not ObjNumber.IsInteger(Text1.Text) Then
  MsgBox "الرجاء إدخال عدد صحيح"
End If

انظر أيضاً:
الدالة IsFloat

بداية الصفحة