Конвертирование времени

novashdima · Конфигурация компьютера

AlexVol, я тоже переделал код до обычного деления, у меня чуть попроще получилось, хотя кое какие упрощения мне подсказали)

Код:

function DivAndMod(var Value : Int64; Divider : Byte):Int64;
begin
 Result := Value mod Divider;
 Value := Value div Divider;
end;

function ConvertTime(m: Int64):string;
var m, w, d, h, min, sec: Int64;
begin
  sec := DivAndMod(m, 60);
  min := DivAndMod(m, 60);
  h := DivAndMod(m, 24);
  w := DivAndMod(m, 30);
  d := DivAndMod(w, 7);
//остальные действия
end;