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;

推荐分享