مشاهدة النسخة كاملة : كيف احصل على ايام الشهر في قائمة 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
السلام عليكم ورحمة الله وبركاته
موفق بإذن الله
vBulletin® v3.8.11, Copyright ©2000-2024, abohmam