كيـــــــف يمكن تجزئة التــــــاريخ بهذة الطريقة .....؟

[ياسرهتهت]

بسم الله الرحمن الرحيم
من باب الطمع في الحصول على اكواد نموذجية
:abc_152: (اكواد ابوبلقيس) :abc_152:
كالتي حصلت عليها في التسائل
كيف يمكن جعل بلجن Calendar يكتب التاريخ بالعربي ؟
http://www.abc4web.net/vb/showthread.php?t=33200

---------
أضيف هذا التسائل : هل من الممكن عند التحديد في البلجنCalendar
ان يظهر التاريخ ايضا مقسم بهذا الشكل ؟


http://d.top4top.net/p_477dyb1.png


في Input المحددة


هذا ملف مفتوح لتوضيح الطلب

http://up.top4top.net/downloadf-47ayzw1-rar.html




موفق بإذن الله ... لك مني أجمل تحية .


:abc_152::abc_152:





-----------------------

[ثامر أبو بلقيس]

الحل في الحل :abc_083:

[ثامر أبو بلقيس]

على مستوى الانبوت المسمى date
وفي الحدث on focus
DialogEx.Show("Dialog1", true, 101, 95);
Input.SetText("date", d)
Input.SetText("Input_D", alyoum);
Input.SetText("Input_DR", alyamme);
Input.SetText("Input_M", chaher);
Input.SetText("Input_Y", sana);
Input.SetText("Input_MR", nchaher);

----------------------:abc_138: ----------------------
على مستوى Plugin1 في الحدث on select
k = os.time({year=String.Mid(e_StartDate, 1, 4), month=String.Mid(e_StartDate, 6, 2), day=String.Mid(e_StartDate, 9, 2)})
os.setlocale("Arabic")
d=os.date("%A %d %B %Y", k)
alyoum = os.date("%A", k)
alyamme = os.date("%d", k)
chaher=os.date("%B", k)
sana=os.date("%Y", k)
nchaher=os.date("%m", k)
result = DialogEx.Close(0);
------------------------- موفق :abc_138: -------------------------------

[ياسرهتهت]

بسم الله الرحمن الرحيم
بارك الله فيك استاذي الكريم
بالفعل الحل في الحل لكن
كانت مشكلتي

http://a.top4top.net/p_47526s1.png

اردت التوضيح فوجتك واضع الحل كامل

الف شكر لك وتقبل تحياتي وتقديري
:abc_138::abc_138::abc_138:

[ثامر أبو بلقيس]

فـــي on show في الملف المفتوح
الأسطر من 1 الى 19 بفراغاتها اي
Page.ClickObject("aaaa");
---------------------------------------------------

-- تخزين رقم ايوم في الأسبوع مع مصفوفة أيام الأسبوع
nDay = String.ToNumber(System.GetDate(DATE_FMT_DAYOFWEEK) );
day = {"الأحد", "الإثنين", "الثلاثاء", "الأربعاء", "الخميس", "الجمعة", "السبت"}

-- اليوم من الشهر
dayInMonth = System.GetDate(DATE_FMT_DAY);

-- تخزين رقم الشهر من السنة وتحويلة إلى نص داخل مصفوفة
nMonth = String.ToNumber(System.GetDate(DATE_FMT_MONTH));
month = {"جانفي", "فيفري", "مارس", "أفريل", "مايو", "جوان", "جويلية", "أوت", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر"}

--السنة
year = System.GetDate(DATE_FMT_YEAR);

-- دمج مغيرات اليوم والشهر والسنة
Paragraph.SetText("Paragraph1", "\n"..day[nDay].." "..dayInMonth.." " ..month[nMonth].." "..year);


كلها زائدة و مجرد تكرار أليس كذلك :abc_138:
يمكنك حذفها و تجربة المعاينة من جديد

[ياسرهتهت]

بسم الله الرحمن الرحيم
بالفعل استاذي الفاضل ........... بارك الله فيك

http://d.top4top.net/p_49tiu41.gif



موفق بإذن الله ... لك مني أجمل تحية .
:abc_138::abc_138: