كتابة مبلغ مالي بالحروف

Function: GetMoneyByWords

الغرض
تحويل عدد حقيقي يمثل مبلغاً مالياً (بالدينار و الدرهم) إلى كلمات باللغة العربية.

الصيغة

function GetMoneyByWords(Dinar, Dirham: Int64; UseAlif: Boolean = True): string;
function GetMoneyByWords(Value: Real; UseAlif: Boolean = True): string;

الوسائط (Parameters)

الشرح
تقرأ هذه الدالة الأعداد الممررة إليها في البارامترين Dinar و Dirham، أو البارامتر Value و تعيد التعبير عنه بالكلمات. فمثلاً الاستدعاء التالي (باستعمال الصيغة الأولى):

GetMoneyByWords(931, 750, True);

يجعل الدالة تعيد "تسعمائة و واحد و ثلاثون ديناراً و سبعمائة و خمسون درهماً".
و كذلك الاستدعاء التالي (باستعمال الصيغة الثانية):

GetMoneyByWords(931.75);

يعطي نفس النتيجة، أي "تسعمائة و واحد و ثلاثون ديناراً و سبعمائة و خمسون درهماً".

 أعلى الصفحة