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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : تنسيق اداة التاريخ في الكريستال ريبورت Print Date (/showthread.php?tid=36629)



تنسيق اداة التاريخ في الكريستال ريبورت Print Date - aftfm - 07-10-20

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

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

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


RE: تنسيق اداة التاريخ في الكريستال ريبورت Print Date - hatan - 07-10-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 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 لتجد أن الأرقام تحولت  إلى الأرقام الهندية ١٢٣٤٥٦٧٨٩