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

الدالة GetMoneyByWordsV

التعبير بالكلمات عن مبلغ مالي معبر عنه بعدد حقيقي.

الصيغة:

Function GetMoneyByWordsV(Value As Double, Optional UseAlif As Boolean = True) As String

الصنف:
TNumber.

الوسائط (Parameters):

الشرح:
تعيد هذه الدالة التعبير اللفظي عن المبلغ المالي المحددة قيمته بالبارامتر Value. مثلاً إذا كان Value = 915.750 فإن الدالة تعيد: تسعمائة و خمسة عشر ديناراً و سبعمائة و خمسون درهماً.

الاستخدام:

Dim ObjNumber As New TNumber

Label1.Caption = ObjNumber.GetMoneyByWordsV(CDbl(Text1.Text), False)

انظر أيضاً:
الدالة GetDinars
الدالة GetDirhams
الدالة GetMoneyByWordsDD
الدالة ReadNumber

بداية الصفحة