[opel431]

Можно попробовать не отсекать дробную часть (TRUNC), а округлять возвращаемое целое - ROUND(Int(...).
А, вообще, мне кажется, лучше измерять интервал используя TDateTime (1 сек = 1 / (24 * 60 * 60).

[novashdima]

округлять возвращаемое целое

не совсем понял, у меня возвращается вещественное число, если его округлить получится совсем не то, а целое из вещественного можно получить либо round либо trunc.

лучше измерять интервал используя TDateTime

нет, интервал лучше замерять TTimeStamp, но мне не интервал времени измерить надо, мне нужно перевести переменную с кол-вом секунд в удобочитаемое юзеру часы, дни....

ROUND(Int(...)

кстати такой структуры нет, единственный вариант - random(integer(...)), типа такого, тогда здесь ограничивается выбор чисел только целыми

[opel431]

кстати такой структуры нет »

Почему нет?
http://www.delphicode.org/math/Trunc_function.htm

читать дальше »

Одна секунда в формате TDateTime равна: 1 / (24 * 60 * 60). Поэтому, если задан некоторый временной интервал Dt в формате TDateTime, то количество секунд в нём равно:
CntSec = Dt / ( 1 / (24 * 60 * 60) ) = Dt * (24 * 60 * 60).
Соответственно, можно функцию написать:Код Delphi
function GetSec(const aPeriod : TDateTime) : Int64;
const
K = 24 * 60 * 60;
begin
Result := Round( Int(aPeriod * K) );
end;
Источник - http://www.cyberforum.ru/delphi-begi...ead325164.html

[novashdima]

Почему нет? »

Извиняюсь, совсем забыл про такую функцию, да и не удивительно, я ею не пользуюсь, вообще ненужная функция, обычно отбрасывают часть или округляют чтобы получить целое число, а эта функция вернет целое число, но в формате вещественного, если нужно вещественное число, то IntToFloat никто не отменял... ну да ладно.
насчет главного вопроса, пока сделал простым делением, но хотелось бы все таки понять, почему не работает этот вариант перевода. Кстати пробовал также написать более грамотно, борясь с возможными лагами и т.д., но главный баг (а может это и не баг) так и остался, вот доработанный код:

Код:

function ConvertTime(timeExt: Extended):string;
var m, w, d, h, min, sec: Int64;
begin
  m := Trunc(Convert(timeExt, tuSeconds, tuMonths));
  timeExt := timeExt - Trunc(Convert(m, tuMonths, tuSeconds));
  w := Trunc(Convert(timeExt, tuSeconds, tuWeeks));
  timeExt := timeExt - Trunc(Convert(w, tuWeeks, tuSeconds));
  d := Trunc(Convert(timeExt, tuSeconds, tuDays));
  timeExt := timeExt - Trunc(Convert(d, tuDays, tuSeconds));
  h := Trunc(Convert(timeExt, tuSeconds, tuHours));
  timeExt := timeExt - Trunc(Convert(h, tuHours, tuSeconds));
  min := Trunc(Convert(timeExt, tuSeconds, tuMinutes));
  sec := timeExt - Trunc(Convert(min, tuMinutes, tuSeconds));
  if m <> 0 then Result := IntToStr(m) + ' мес ';
  if w <> 0 then Result := Result + IntToStr(w) + ' нед ';
  if d <> 0 then Result := Result + IntToStr(d) + ' д ';
  if h <> 0 then Result := Result + IntToStr(h) + ' ч ';
  if min <> 0 then Result := Result + IntToStr(min) + ' м ';
  if sec <> 0 then Result := Result + IntToStr(sec) + ' с ';
  if (m = 0) and (w = 0) and (d = 0) and (h = 0) and (min = 0) and (sec = 0)
  then Result := '0 c';
end;

[AlexVol]

Вот еще пример конвертации секунд. Я правда остановился на днях, но мне больше и не надо было

Код:

function SecToTimeStr(Seconds : Integer) : String;
const
  SecPerDay = 86400;
  SecPerHour = 3600;
  SecPerMinute = 60;

var
   dd, ss, mm, hh: Cardinal;
   str : String;
begin
  str := '';
  dd := Seconds div SecPerDay;
  hh := (Seconds mod SecPerDay) div SecPerHour;
  mm := ((Seconds mod SecPerDay) mod SecPerHour) div SecPerMinute;
  ss := ((Seconds mod SecPerDay) mod SecPerHour) mod SecPerMinute;
  str := Format('%2.2d:%2.2d:%2.2d',[hh,mm,ss]);
  if dd>0 then
    str := Format('%d дн ',[dd])+str;
  result := str;
end;

[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;

[novashdima]

SecPerDay = 86400; »

кстати в делфи существует константа SecsPerDay, которая равна вашим 86400, поэтому вводить новую не обязательно)

[AlexVol]

Но так как других нет, то для наглядности лучше забить свою. Много усилий это не займет.

[novashdima]

Много усилий это не займет. »

И это верно.