Uhrzeit auf volle Minuten (ab)runden

[Bummi]

Delphi-Quellcode:

implementation
uses dateUtils;
{$R *.dfm}

Function RoundTime(T:TDateTime):TDateTime;overload;
var
 y,mo,d,h,n,s,m,ss:Word;
 inc:Integer;
begin
  DecodeDatetime(T,y,mo,d,h,n,s,m);
  ss := s;
  s := 0;
  Result := EncodeDateTime(y,mo,d,h,n,s,m);
  if ss>30 then inc := 1 else inc := 0;
  Result := IncMinute(Result,inc)
end;

Function RoundTime(T:TTime):TTime;overload;
var
 h,n,s,m,ss:Word;
 inc:Integer;
begin
  DecodeTime(T,h,n,s,m);
  ss := s;
  s := 0;
  Result := EncodeTime(h,n,s,m);
  if ss>30 then inc := 1 else inc := 0;
  Result := IncMinute(Result,inc)
end;