[aftfm]

السلام عليكم ورحمة الله وبركاته

اريد اظهار اداة التاريه Print Date في تقرير الكريستال ريبورت

1442/2/20

بالتاريخ الهجري وبالتنسيق الهندي للارقام فقط التاريخ وبدون الظهار ا سم اليوم

استخدمت هذا الكود 

كود :

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 0 do
str :=Replace (str, ToText(i,0) , ChrW (i+1632));
str

ولكنه لا زال يظهرا التاريخ الهجري ولكن الارقام بالتنسيق العربي
والمطلوب التنسيق الهندي

[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 لتجد أن الأرقام تحولت  إلى الأرقام الهندية ١٢٣٤٥٦٧٨٩