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

الدالة IsFloat

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

الصيغة:

Function IsFloat(Text As String) As Boolean

الصنف:
TNumber.

الوسائط (Parameters):

الشرح:
إذا كان من الممكن تحويل النص Text إلى عدد حقيقي - أي يمكن أن يحتوي على كسر عشري - فإن الدالة تعيد True، و إلا فإنها تعيد False.

الاستخدام:

Dim ObjNumber As New TNumber

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

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

بداية الصفحة