delphi 计算加班时间工时的函数

本文整理自网络，侵删。

 
function getTaskTimeStr(BigTime, SmallTime : TDateTime;AValue : Integer):string;
var
  t0 : Double;
  t1 : Integer;
begin
  t0 := MinuteSpan(BigTime , SmallTime); //加班工时
  t1 := Trunc( t0 / 60 / 8 );
  Result := IntToStr(t1 + AValue);
end;

function getDateTimeStr(BigTime, SmallTime : TDateTime):string;
var
  t0 : Double;
  t1  : Integer;
  Time: TDateTime;
  Hour: Word;
  Minute : Word;
  Second : Word;
  s : string;

begin
  t0 := MinuteSpan(BigTime , SmallTime); //加班总分钟
  t1 := Trunc( t0 / 60 / 8 );
  t0   := t0 - (t1 * 480);
  Time := StrToTime(TimeToStr(Round( t0 * 60 ) /86400 ));
  Hour := HourOf(Time);
  Minute:=MinuteOf(Time);
  Second:=SecondOf(Time);
  if Hour <> 0 then
  begin
    s := IntToStr(Hour) + ' 小时 ';
  end;

  if Minute <> 0 then
  begin
    s := s + IntToStr(Minute) + ' 分钟';
  end;

  Result := s;
//  Result := FormatDateTime('h 小时 nn 分钟 ss 秒',Time);
end;

function GetOverHour(t0 : Double ;AValue : Integer):string;
var
  t1 : Integer;  //获取加班工时
begin
  t1 := Trunc( t0 / 60 / 8 );
  Result := IntToStr(t1 + AValue);
end;

function GetOverTime(t0 : Double):string;
var
  t1  : Integer;
  Time: TDateTime;
  Hour: Word;
  Minute : Word;
  Second : Word;
  s : string;

begin     //获取加班小时分钟
  t1 := Trunc( t0 / 60 / 8 );
  t0   := t0 - (t1 * 480);
  Time := StrToTime(TimeToStr(Round( t0 * 60 ) /86400 ));
  Hour := HourOf(Time);
  Minute:=MinuteOf(Time);
  Second:=SecondOf(Time);
  if Hour <> 0 then
  begin
    s := IntToStr(Hour) + ' 小时 ';
  end;

  if Minute <> 0 then
  begin
    s := s + IntToStr(Minute) + ' 分钟';
  end;

  Result := s;
end;

 

相关阅读 >>

Delphixe firemonkey 如何画图

Delphi目录操作示例

Delphi10.x dpr文件

d10环境下调用hidcontroller1.0.35获取数据乱码问题

Delphi 检测服务器地址是否有效

winapi 字符及字符串函数(2): charlowerbuff - 把缓冲区中指定数目的字符转小写

Delphi 使用indy解决tidssliohandlersocketopenssl could not load ssl library错误

Delphi 声明指令

Delphi xe berlin readprocessmemory writeprocessmemory

Delphi 如何知道鼠标点击的statusbar的位置

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 计算加班时间工时的函数