נבוך באלגוריתם - חיפוש ימים בשבוע בתוך טווח תאריכים
-
מה אתה אומר?
הוא יאמר שזה עובד אבל אלגוריתם לא יעיל.
תראה יש לנו מס' ימים, ויש לנו יום בשבוע שחל היום הראשון.
אז החשבון פשוט: (מס' הימים - היום בשבוע) / 7. זה נותן שבועות שלמים, עם שארית.
כל מה שנשאר לנתח את השבוע הראשון ואת השארית של החלוקה הנ"ל.פורסם במקור בפורום CODE613 ב29/01/2015 00:08 (+02:00)
-
@דוד ל.ט.
מה אתה אומר?
הוא יאמר שזה עובד אבל אלגוריתם לא יעיל.
תראה יש לנו מס' ימים, ויש לנו יום בשבוע שחל היום הראשון.
אז החשבון פשוט: (מס' הימים - היום בשבוע) / 7. זה נותן שבועות שלמים, עם שארית.
כל מה שנשאר לנתח את השבוע הראשון ואת השארית של החלוקה הנ"ל.ככה זה כשאתה נמצא בבית חולים, הראש מפסיק לעבוד
פורסם במקור בפורום CODE613 ב29/01/2015 01:07 (+02:00)
-
לא יודע VB אבל למה לא משהו כזה?
boolean Day[7] int Days Day[0]:=0, Day[1]:=0, Day[2]:=1, Day[3]:=1, Day[4]:=1, Day[5]:=0, Day[6]:=0 Days:=GetSumDays(FromDay, ToDay) FirstDay:=DayOfWeek(00/00/0000) for i:=1 to Days do JobDay+=Day[(FirstDay mod 7)] FirstDay += 1 End For return JobDayפורסם במקור בפורום CODE613 ב29/01/2015 08:22 (+02:00)
-
לא יודע VB אבל למה לא משהו כזה?
boolean Day[7] int Days Day[0]:=0, Day[1]:=0, Day[2]:=1, Day[3]:=1, Day[4]:=1, Day[5]:=0, Day[6]:=0 Days:=GetSumDays(FromDay, ToDay) FirstDay:=DayOfWeek(00/00/0000) for i:=1 to Days do JobDay+=Day[(FirstDay mod 7)] FirstDay += 1 End For return JobDayיפה מאוד! קוד מובן ומעניין.
אבל שוב לא יעיל, באמת חייבים לעבור בלולאה על 10000 יום?
הרי ידוע בדיוק כמה שבועות שלמים, ואת המודולו צריך לעשות רק על השבר הראשון והאחרון.פורסם במקור בפורום CODE613 ב29/01/2015 13:32 (+02:00)
-
נראה לי שתיקנתי עד שהלקוח יתקשר יום אחד שגנבתי לו מאות אלפי שקלים של משכורות :lol: :lol: :lol: סתם יש כאן שמורות מתמטיות וזה באמת עובד טוב...
Function GetWeekDaysCountBetweenDates(FromDate As Date, ToDate As Date, FromDay As Integer, ToDay As Integer) As Integer Dim FullWeeks As Integer, Total As Long If DatePart("w", FromDate) = 1 And DatePart("w", ToDate) = 7 Then GetWeekDaysCountBetweenDates = (CLng(ToDate - FromDate) / 7) * ((ToDay - FromDay) + 1) Else FullWeeks = Max(Fix(CLng((ToDate - DatePart("w", ToDate)) - (FromDate - (7 - DatePart("w", FromDate)))) / 7), 0) 'חישוב השבועות השלמים Total = Total + FullWeeks * ((ToDay - FromDay) + 1) 'מוסיף לסכום את הימים של השבוע הראשון וזה מכסה גם מצב שבו אין שבועות שלמים כלל If DatePart("w", FromDate) <= ToDay Then Total = Total + ((ToDay - Max(FromDay, DatePart("w", FromDate))) + 1) End If 'מוסיף לסכום את הימים של השבוע האחרון If DatePart("w", ToDate) >= FromDay And FullWeeks > 0 Then 'מוכרח שיש שבוע שלם אחד לפחות דאם לא כן הרי השבוע מטופל בתור שבוע ראשון ואין לטפל בו גם כשבוע אחרון Total = Total + ((Min(ToDay, DatePart("w", ToDate)) - FromDay) + 1) End If GetWeekDaysCountBetweenDates = Total End If End Functionפורסם במקור בפורום CODE613 ב29/01/2015 16:00 (+02:00)
-
@דוד ל.ט.
@אהרן
לא יודע VB אבל למה לא משהו כזה?boolean Day[7] int Days Day[0]:=0, Day[1]:=0, Day[2]:=1, Day[3]:=1, Day[4]:=1, Day[5]:=0, Day[6]:=0 Days:=GetSumDays(FromDay, ToDay) FirstDay:=DayOfWeek(00/00/0000) for i:=1 to Days do JobDay+=Day[(FirstDay mod 7)] FirstDay += 1 End For return JobDayיפה מאוד! קוד מובן ומעניין.
אבל שוב לא יעיל, באמת חייבים לעבור בלולאה על 10000 יום?
הרי ידוע בדיוק כמה שבועות שלמים, ואת המודולו צריך לעשות רק על השבר הראשון והאחרון.מה הבעיה, איטיות?
פורסם במקור בפורום CODE613 ב29/01/2015 20:56 (+02:00)
-
איזה ציון מגיע לי?
boolean Day[7] int Days Day[0]:=0, Day[1]:=0, Day[2]:=1, Day[3]:=1, Day[4]:=1, Day[5]:=0, Day[6]:=0 Days:=GetSumDays(FromDay, ToDay) FirstDay:=DayOfWeek(00/00/0000) Days -: ( 7 - FirstDay ) LastDay := Days mod 7 SunWeeks := Days div 7 for i:=1 to 7 do \\ FirstWeek JobDay += ( Day[i-1] * ( i= > FirstDay )) \\ LastWeek JobDay += ( Day[i-1] * (i =< LastDay )) \\ NormalWeek JobDay += Day[i-1] * SunWeeks End For return JobDayפורסם במקור בפורום CODE613 ב01/02/2015 20:20 (+02:00)
