[hatan]

كود :

Local StringVar str := ToText(CurrentFieldValue);
if IsNumeric (str) then str := ToText(ToNumber (str),0);
if IsDate(str) then str :=cstr(cdate(str),"yyyy/MM/dd");

Local numberVar i:=0;
for i:=0 to 9 do
str :=Replace (str, ToText(i,0) , ChrW (i+1632));
str

طريقة أخرى تعمل فومولا جديد من Formula Feilds ثم تضع هذا الكود

كود :

ToText(PrintDate,"yyyy/MM/dd")

ثم تسحبه وتضعه على التقرير
ثم تأتي عليه في التقرير وتضغط زر يمين وتختار Format Object
وستجد أن هناك تبويب اسمه Paragraph اضغط عليه وضع علامة على Right to Left لتجد أن الأرقام تحولت  إلى الأرقام الهندية ١٢٣٤٥٦٧٨٩