منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تحويل الأرقام إلى حروف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحويل الأرقام إلى حروف (/showthread.php?tid=11533)



تحويل الأرقام إلى حروف - djelloul - 24-02-15

السلام عليكم ورحمة الله تعالى وبركاته
الأساتذة الكرام
أريد كيفية تحويل الأرقام إلى حروف في تقرير كريستال ريبورت كما يكون في شكل فاتورة مثلا
شكرا لكم


RE: تحويل الأرقام إلى حروف - djelloul - 25-02-15

تم بحمد الله وعونه حل هذه المسألة
وحنى تعم الفائدة لجميع الإخوان أردت أن أضع الحل هما

في الجانب الأيسر لنافذة الكريستال ريبورت تجد تبويب  Field Explorer تختار منه Fields Formula، ومنها تختار New
تظهر أمامك نافذة تنسخ في الجانب السفلي المماثل للـ Text Editor هذا الكود
نتيجة هذا الكود هي باللغة الفرنسية
PHP كود :
stringVar array t 

 
StringVar Libelle1

 
StringVar Libelle2
 
t:=split(totext({@TotHT},2,'',','),','); 
Libelle1:=towords (tonumber(replace(t[1],' ','')),0);
Libelle1:=UpperCase(Left(Libelle1,1)) + Lowercase(Right(Libelle1,Length(Libelle1)-1));
Libelle2:=towords (tonumber(replace(t[1],' ','')),0) ;
Libelle2:=UpperCase(Left(Libelle2,1)) + Lowercase(Right(Libelle2,Length(Libelle2)-1));
Libelle2:=Libelle2 ' Euros '  ' et ' towords (tonumber(t[2]),0);
if 
tonumber(t[2]) =0 then 
     
" " & (Libelle1  " Dinars. ")
 
else 
 
    " " & (Libelle2) & " centimes. "