Delphi, перевод секунд в минуты

[bad_patefa]

Здравствуйте!
Программа даёт определённое число в секундах, это число необходимо перевести и в минуты и в секунды.

Пробывал так, но программа получается не точная, перводит только в минуты, ито округляя

procedure TForm1.Button13Click(Sender: TObject);
 var z,x,c:Extended;
begin
if Edit9.Text>'59' then
//
else
begin
 z:=strtoint(Edit9.text);
 x:=60;
 c:=z/x;
 Edit7.Text:=FloatToStrF(c,ffFixed,5,0); //округляю чтоб было без многочисленных знаков...
end;
end;

Заранее спасибо!

[Niro]

sek- секунды
z:=разделил секунды на 60
k:=целую часть запомненного числа умножь на 60 сек
rez:=отними от введенных секунд(sek) то что запомнил выше(k)
усЁ
k - минут
rez - секунд

[bad_patefa]

Сообщение от Niro

k:=целую часть запомненного числа умножь на 60 сек
rez:=отними от введенных секунд(sek) то что запомнил выше(k)

Спасибо. Но чтот не понял как сделать этот пункт

[Stilet]

Экзотичный вариант за одну операцию деления:

 var sek,min:integer;
begin
 sek:=30;
 asm
  mov eax,[sek]
  xor edx,edx
  mov ebx,60
  div ebx
  mov [min],eax
  mov [sek],edx;
 end;
 write(min,':',sek);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Niro]

для выделения целой части числа испульзуй функцию trunc(x), где х вещественное число т.е.
z:=strtoint(Edit9.text);
c:=z/60;
rez:=(trunc(c)*60)-z;
b:=trunc(c);
В результате получаем b - минут, rez - секунд

[Utkin]

Есть еще функции деления на цело и получения остатка от деления...

[bad_patefa]

Сообщение от Niro

для выделения целой части числа испульзуй функцию trunc(x), где х вещественное число т.е.
z:=strtoint(Edit9.text);
c:=z/60;
rez:=(trunc(c)*60)-z;
b:=trunc(c);
В результате получаем b - минут, rez - секунд

Всем спасибо. Воспользовался кодом Niro, но результат в переменной rez получался отрицательный, поправил, путём добавления

x:=-1;
rez:=((trunc(c)*60)-z)*x;

Вопрос закрыт.

[Utkin]

Ну может можно без множителей? Если попробовать отнять от z, а не наоборот...

[SaiLight]

Почему нельзя так?

vSec := StrToInt(Edit9.Text);
vMin := vSec div 60;
vSec := vSec - vMin * 60;

vMin - минуты, vSec - секунды.