المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : كيف احصل على ايام الشهر في قائمة ListBox


ياسرهتهت
25-05-2017, 02:13 AM
بسم الله الرحمن الرحيم
كل عام والامة الاسلامية بخير

السؤال ؟
كيف يمكن ان اجعل ايام اي شهر في قائمة ListBox؟؟؟؟

مثلا ايام شهر فبراير 2017 عدد الايام 28 يوم
تبدء يوم الاربعاء
كيف اظهرها في ListBox
لتكون بالشكل التالي

الاربعاء 1/2/2017
الخميس 2/2/2017
الجمعة 3/2/2017
وهكذا الي اخر ايام الشهر
موفق بإذن الله ... لك مني أجمل تحية .

ثامر أبو بلقيس
25-05-2017, 09:43 AM
بسيطة مع انهاء الامتحانات سأعود لأكتب لك الحل . :abc_139:

محمد بن أحمد أبو حذيفة
25-05-2017, 01:40 PM
بسم الله الرحمن الرحيم
متابع معكم

ثامر أبو بلقيس
25-05-2017, 02:57 PM
السلام عليكم ورحمة الله وبركاته

ثامر أبو بلقيس
25-05-2017, 03:01 PM
--- هذان المتغيران غير فيهما مثل ما احببت ----
MONTH=2 ------ الشهر
YEAR=2017 ------ السنة
---------------------------------------------------
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);------
for i =1,31 do----- ABOU_BELKISS------------------
k = os.time({year=YEAR, month=MONTH, day=i})------
os.setlocale("Arabic")-----------------------------
d=os.date("%A %Y /%m/ %d", k)---------------------
if tonumber(os.date("%m", k))== MONTH then------
ListBox.AddItem("ListBox1", d, "")-----------------
end;end--------------------------------------------

ياسرهتهت
25-05-2017, 03:13 PM
--- هذان المتغيران غير فيهما مثل ما احببت ----
MONTH=2 ------ الشهر
YEAR=2017 ------ السنة
---------------------------------------------------
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);------
for i =1,31 do----- ABOU_BELKISS------------------
k = os.time({year=YEAR, month=MONTH, day=i})------
os.setlocale("Arabic")-----------------------------
d=os.date("%A %Y /%m/ %d", k)---------------------
if tonumber(os.date("%m", k))== MONTH then------
ListBox.AddItem("ListBox1", d, "")-----------------
end;end--------------------------------------------



-----------------------------------
بسم الله الرحمن الرحيم

شكرا جزيلاً استاذنا الفاضل
هذا هو المطلوب 100%
:abc_152::abc_138::abc_152:
بارك الله فيك وجازك كل خير
موفق بإذن الله ... لك مني أجمل تحية .

ياسرهتهت
26-05-2017, 07:43 PM
بسم الله الرحمن الرحيم
موفق بإذن الله ... لك مني أجمل تحية .

ثامر أبو بلقيس
26-05-2017, 10:09 PM
والله فعلا أنت إنسان رائع .... أزلت عني حيرة كبيرة بهذا الملف
المرفق محظوظ أنا بك و الشكر موصول لمصدر الملف

شكراا جزيلا ورمضان مبارك لك و لكل أفراد اسرة طريق الاحتراف

عبود عبود
26-05-2017, 10:17 PM
شكرا جزيلا ...... حل جميل جدا وكود مختصر
شكرا أبوبلقيس :abc_152:

ثامر أبو بلقيس
26-05-2017, 10:24 PM
شكرا جزيلا ...... حل جميل جدا وكود مختصر
شكرا أبوبلقيس :abc_152:

مرور عطر يا طيب ... أخي الملف المرفق ركز لي عليه هل يعمل عندك أم لا ؟ أي يعطي نتائج ام لا

محتاجه ضروري

عبود عبود
26-05-2017, 10:28 PM
مرور عطر يا طيب ... أخي الملف المرفق ركز لي عليه هل يعمل عندك أم لا ؟ أي يعطي نتائج ام لا

محتاجه ضروري

أى صورة تحتوى على نص مكتوب يتم قراءته بهذا الملف

ثامر أبو بلقيس
26-05-2017, 11:40 PM
أى صورة تحتوى على نص مكتوب يتم قراءته بهذا الملف

مشكـــور جدا جربت الملف لكن للأسف لم بعطي نتائج (وينداوز xp ) لا أدري ربما عندي في الجهاز ما لم يتوافق أو ما لا يساعد
على هكذا اجراء شكــــرا

أبو قصي
27-05-2017, 12:19 AM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
كل عام وأنتم جميعاً بخير

المـهاجر
27-05-2017, 11:13 AM
بسم الله الرحمن الرحيم
كل عام وأنتم بخير

عبد الهادي بهاب
28-05-2017, 01:34 AM
السلام عليكم ورحمة الله وبركاته
رمضان كريم

المحترف القادم
28-05-2017, 03:17 AM
السلام عليكم ورحمة الله وبركاته
شهر مبارك

محمد رمضان أبو يوسف
14-07-2017, 02:06 AM
عمل جميل جدا

فرح صالحي
06-01-2018, 01:57 PM
شـكــ وبارك الله فيك ـــرا لك:abc_152:... لك مني أجمل تحية .

احمد كبه
08-01-2018, 04:51 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

الدموكي
20-01-2018, 09:40 PM
موفق بإذن الله ... لك مني أجمل تحية .
مبدعين واكثر من راءعين

حليبساخن
04-04-2020, 09:47 PM
السلام عليكم ورحمة الله وبركاته
موفق بإذن الله ... لك مني أجمل تحية .

جمال سات
08-05-2020, 11:17 PM
السلام عليكم ورحمة الله وبركاته
موفق بإذن الله