Forum > Arabic
سؤال حول دوال التاريخ
Al-Eid:
السلام عليكم
هل توجد دالة تعمل مثل الدالة DaysBetween ولكن مع إمكانية عدم حساب أيام نهاية أيام الأسبوع أو أيام محددة
Zaher:
اتذكر لا يوجد و قمت بزماني بعمل واحد على يدي ، هو مهم في برامج احتساب الرواتب و الاجور، لاستثناء ايام الاجازات
قمت بعمل مسح لكل الايام و عدها
Al-Eid:
بارك الله فيك على المعلومة
لقد بحثت في الأنترنت وجدت هده يمكن أن تعيطني رأيك فيها
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---function BusinessDaysBetween(const FirstDate, SecondDate: TDateTime): Integer;var CurrDate : TDateTime; StartDate, EndDate: TDateTime;begin if SecondDate > FirstDate then begin StartDate := FirstDate; EndDate := SecondDate; end else begin StartDate := SecondDate; EndDate := FirstDate; end; CurrDate := StartDate; Result := 0; while (CurrDate <= EndDate) do begin if DayOfTheWeek(CurrDate) < 6 then Inc(Result); CurrDate := CurrDate + 1; end;end;
Zaher:
الكود يحسب عدد الايام عدا ايام السبت والأحد،
للتوضيح قمت باختصاره لك وتوضيح لا يساوي رقم 5 بدل من أصغر من 6، في حال اردت استبداله بيوم الجمعة الذي رقمه 5
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---function BusinessDaysBetween(const FirstDate, SecondDate: TDateTime): Integer;begin Result := 0; while (FirstDate <= SecondDate) do begin if DayOfTheWeek(FirstDate) <> 5 then // 5 is Friday Inc(Result); FirstDate := FirstDate + 1; end;end;
Al-Eid:
حسب ردك هذا فإن الدالة جيدة وهذا ما كنت أريد أن أعرفه
مع العلم أني لم أنتبه في البداية بمشكل أرقام الأبام
بارك الله فيك
Navigation
[0] Message Index
[#] Next page