计算一段时间的工作天数
来源:互联网 发布:2017下半年网络新词 编辑:程序博客网 时间:2024/05/22 15:00
function DayOfWeekCount(ADayOfWeek: Integer; const ABegin, AEnd: TDateTime): Integer;
var lBeginDay, lEndDay: Integer;
begin
lBeginDay := DayOfTheWeek(ABegin);
lEndDay := DayOfTheWeek(AEnd);
Result := (DaysBetween(ABegin, AEnd) + 1 + (lBeginDay - 1) + (7 - lEndDay)) div 7;
if lBeginDay > ADayOfWeek then
Result := Result - 1;
if lEndDay < ADayOfWeek then
Result := Result - 1;
end;
function GetWorkDays(ABeginTime, AFinishTime: TDateTime): Integer;
begin
Result := DaysBetween(ABeginTime, AFinishTime) + 1;
{ 除去周六周日 }
Result := Result -
DayOfWeekCount(DaySaturday, ABeginTime, AFinishTime) -
DayOfWeekCount(DaySunday, ABeginTime, AFinishTime);
end;
var lBeginDay, lEndDay: Integer;
begin
lBeginDay := DayOfTheWeek(ABegin);
lEndDay := DayOfTheWeek(AEnd);
Result := (DaysBetween(ABegin, AEnd) + 1 + (lBeginDay - 1) + (7 - lEndDay)) div 7;
if lBeginDay > ADayOfWeek then
Result := Result - 1;
if lEndDay < ADayOfWeek then
Result := Result - 1;
end;
function GetWorkDays(ABeginTime, AFinishTime: TDateTime): Integer;
begin
Result := DaysBetween(ABeginTime, AFinishTime) + 1;
{ 除去周六周日 }
Result := Result -
DayOfWeekCount(DaySaturday, ABeginTime, AFinishTime) -
DayOfWeekCount(DaySunday, ABeginTime, AFinishTime);
end;
- 计算一段时间的工作天数
- 计算两个日期之间的工作天数
- 计算两个日期相差的工作天数
- 计算两个日期之间的工作天数
- 计算某年某月工作天数
- 工作一段时间的感触
- 下一段时间的工作
- 工作一段时间的反思
- 接下来一段时间的工作
- 工作天数和时间计算
- POJ 3715:计算工作天数
- Java计算任意两个日期间隔的工作天数
- Java中计算任意两个日期之间的工作天数
- 计算任意2个日期之间的工作天数
- Java中计算任意两个日期之间的工作天数
- Java计算任意两个日期间隔的工作天数
- MSSQL计算两个日期相差的工作天数
- C#计算一个月的具体工作天数
- 记录下我当时post butterfly的perl代码
- ZendFramework学习第三章(核心组件—ACL高级用法之精细访问控制、移除控制规则)
- android4.1.2-kernel3.0-s3c2410-tc.c
- 每日一题(2)——Maximum sum
- Zend Framework 2.0 正式版发布及新功能介绍
- 计算一段时间的工作天数
- 重要博客地址
- C# MVC 生成json时,可选属性
- smarty foreach 控制循环次数
- CSS学习笔记--文本格式化
- 虚拟机安装Ubuntu的上网设置(有线网络和无线网络)
- C++ io操作
- 用 Matlab 验证:部分样本空间 可以预测 总体样本的性质
- Android NDK开发——Java与C互相调用实例详解