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

الدالة GetMoneyByWordsDD

التعبير بالكلمات عن مبلغ مالي بمعلومية عدد الدينارات و عدد الدراهم.

الصيغة:

Function GetMoneyByWordsDD(Dinar As Long, Dirham As Long, Optional UseAlif As Boolean = True) As String

الصنف:
TNumber.

الوسائط (Parameters):

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

الاستخدام:

Dim ObjNumber As New TNumber

Label1.Caption = ObjNumber.GetMoneyByWordsDD(CLng(Text1.Text), CLng(Text2.Text))

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

بداية الصفحة