منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تنسيق اداة التاريخ في الكريستال ريبورت Print Date

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

اريد اظهار اداة التاريه 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

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

كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

aftfm

hatan