無名经验总结与分享(SAP)            十年树木，百年树人

摘要： function DayOfWeekCount(ADayOfWeek: Integer; const ABegin, AEnd: TDateTime): Integer;var lBeginDay, lEndDay: Integer;begin lBeginDay := DayOfTheWeek(ABegin); lEndDay := DateUtils.DayOfTheWeek(AEnd); Result := (DateUtils.DaysBetween(ABegin, AEnd) + 1 + (lBeginDay - 1) + (7 - lEndDay)) div 7; if lBegi 阅读全文