حساب عدد ايام الشهر

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

nStartMonth=9
nLastMonth=9
for i = nStartMonth to nLastMonth

	nDaysOfTheMonth= day(gomonth(date(year(date()), i, 1),1)-1)
	for x = 1 to nDaysOfTheMonth

		cDate=transform(x)+"/"+transform(i)+"/"+transform(year(date()))
		if dow(ctod(cDate))=6
			?cDate+"    "+"Friday"
		else
			?cDate
		endif
	next
next

هذه الفكرة والباقي عليك

مع التحية

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

ولكني فقط اردت معرفة الدالة transform ماذا تعني انا مما فهمته انه في هذا السطر انت تكون التاريخ ودمجة مع بعض لكن ما عمل هذه الدالة تحديدا ؟

compiler_x كتب:

ولكني فقط اردت معرفة الدالة transform ماذا تعني انا مما فهمته انه في هذا السطر انت تكون التاريخ ودمجة مع بعض لكن ما عمل هذه الدالة تحديدا ؟

تفيد بتحويل المتغير من رقم أو تاريخ أو نص.. الى نص

وهنا تم استعمالها لتحويل الأرقام الى نص لنتمكن من دمجها مع / الخاصة بالتاريخ

ويمكن استخدام الدالة STR بدلا منها والتي تختلف عنها بأن الاخيرة تستخدم لتحويل الأرقام فقط الى نص

جزاك الله خيرا متميز بردودك متفاني بشروحك

ادام الله لك هذا النشاط

compiler_x كتب:

جزاك الله خيرا متميز بردودك متفاني بشروحك

ادام الله لك هذا النشاط

rmois=9
ran=2010
i=0
j=0
rdat="01/"+allt(str(rmois))+"/"+allt(str(ran))
rdat=ctod(rdat)
do while month(rdat)=rmois
i=i+1
if cmonth(rdat)="Friday" 
j=j+1
endif
rdat=rdat+1
enddo
messagebox("عدد ايام هذا الشهر "+allt(str(i)),0,"رسالة")
messagebox("عدد ايام الجمعة في هذا الشهر "+allt(str(j)),0,"رسالة")

Shadowz كتب:

before your code:

SET DATE TO BRITISH

and change cmonth(rDat) to be

cDow(rDat)

Then u will restore your Fridays and lost days :wink:

شكرا الك اخي الكريم

تماما لقد اخطأت فهي لتحديد ال اسم الشهر وليس اليوم

لكن ما دور؟ وادا تعني؟

SET DATE TO BRITISH

شكرا الك اخي الكريم

اظن انني عرفة دور هده الجملة

jj/mm/aa

لدي طلب اخير

هل من الممكن ان تستعمل اللغة العربية او الفرنسية لانني لا اجيد اللغة الانجليزية

set date to BRITISH

تحول صيغة التاريخ الى الانجليزي Day/Month/Year

شكرا