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

الدالة ReadNumber

التعبير عن عدد صحيح بالكلمات (العربية).

الصيغة:

Function ReadNumber(Number As Long, Optional tmzOnes As String = "", Optional tmzTens As String = "", Optional tmzMore As String = "", Optional UseAlif As Boolean = True) As String

الصنف:
TNumber.

الوسائط (Parameters):

الشرح:
تقرأ هذه الدالة العدد الصحيح الممرر إليها في البارامتر Number و تعيد التعبير عنه بالكلمات. فمثلاً إذا كان العدد هو 65 فإن الدالة تعيد "خمسة و ستون"، و إذا كان العدد هو 6701 فإن الدالة تعيد "ستة آلاف و سبعمائة و واحد"، ... إلخ. إذا أهملت البارامترات الثلاثة الاختيارية الخاصة بالتمييز (tmzOnes, tmzTens, tmzMore) فإن الدالة تعيد قراءة الرقم فقط - كما سبق - أما إذا تم تمرير قيم لتلك البارامترات فإن الدالة تستعمل تلك البارامترات لتمييز الأعداد بالشكل المناسب.
إذا كانت قيمة البارامتر Number هي الصفر فإن الدالة تعيد كلمة "صفر" دون تمييز حتى و لو تم تمرير قيم للبارامترات الاختيارية الخاصة بالتمييز. و فيما عدا الصفر فإن الدالة تستطيع التعامل مع الأعداد من 1 إلى 99,999. أية أعداد أخرى خارج هذا النطاق (و طبعاً ضمن النطاق Long) لا تتسبب في خطأ، لكن الدالة تعيد الرقم كما هو في شكل نص (String)، و متبوعاً بنص البارامتر tmzMore إذا لم يكن نصاً فارغاً.

الاستخدام:

Dim ObjNumber As New TNumber

MsgBox ObjNumber.ReadNumber(1964, "كتبٍ", "كتاباً", "كتابٍ")

ملاحظة:
ربما تظهر البارامترات الاختيارية الخاصة بالتمييز مقلوبة من حيث الترتيب عند عرض الشفرة السابقة في متصفح الإنترنت، فالبارامتر الأول هو 'كتبٍ'، و البارامتر الثاني هو 'كتاباً'، و البارامتر الثالث هو 'كتابٍ'.

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

بداية الصفحة