تابع يقوم بتفقيط الأرقام باللغة العربية

[mk1968]

Function JustifyNumber(x : Double; IsMoney:Boolean;Currency :String)
x : الرقم المراد تفقيطه
IsMoney : في حال كان التفقيط لنقود سيظهر نوع العملة في المتحول اللاحق
وإلا ظهر الافتراضي ليرة سورية
Currency :نوع العملة المراد اظهارها بالتفقيط

[SOUFYANE2018]

السلام عليكم 

اي اضع هذا الملف

وكيفية استخدامه

[bouh25]

لا يقوم باظهار ما بعد الفاصلة