Time wert in Longint umwandel

[marabu]

Hallo Alf,

bei den Routinen TimeToStr() und StrToTime() kannst du noch deine speziellen Wünsche einbringen:

Delphi-Quellcode:

function MsecToStr(msec: cardinal): string;
var
  h, m, s: cardinal;
begin
  s := msec div 1000;
  msec := msec mod 1000;
  m := s div 60;
  s := s mod 60;
  h := m div 60;
  m := m mod 60;
  Result := TimeToStr(EncodeTime(h, m, s, msec));
end;

function StrToMsec(sTime: string): cardinal;
var
  h, m, s, msec: word;
begin
  DecodeTime(StrToTime(sTime), h, m, s, msec);
  Result := h * 60;
  Result := ((Result + m) * 60 + s) * 1000 + msec;
end;

Grüße vom marabu