Преобразовать число в время

[Сантей]

В общем пользователь вводит в эдит1 кол-во голов например 91500, затем программа должна преобразовать введённое число в время, исходя из того, что 10000 это один час, а так же пользователь вводит в маскЭдит время в формате чч:мм, затем складываем преобразованное из эдит1 и время из маскэдит1 и выводим это в лэйбл1. Буду благодарен! заранее. спасибо.

[LW3TIUWR]

для начала нужно разобраться.
т.е. 91 500 после преобразование во время будет выглядеть как: 9 часов 9 минут?

[Сантей]

нет 91 500/10 000 = 9.15 и это= 9ч 8мин, т к один час это 10 000

[Сантей]

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

для начала нужно разобраться.
т.е. 91 500 после преобразование во время будет выглядеть как: 9 часов 9 минут?

Чёт я туплю, да именно так!

[Сантей]

Где же вы, программеры?

[Аватар]

var a,b: Integer;
begin
  a:=91500;
  b:=10000;
  Label1.Caption:=FormatDateTime('hh:nn',EncodeTime(a div b,((a mod b)*60) div b,0,0));
end;

[Сантей]

Сообщение от Аватар

var a,b: Integer;
begin
  a:=91500;
  b:=10000;
  Label1.Caption:=FormatDateTime('hh:nn',EncodeTime(a div b,((a mod b)*60) div b,0,0));
end;

Большое спасибо, всё работает. Теперь надо, чтобы пользователь в любой момент вводил в эдит3 корректировку в минутах и они прибавлялись или отнимались (через буттоны "+","-") от того, что сейчас в лэйбле.

[Аватар]

Запомни результат EncodeTime(a div b,((a mod b)*60) div b,0,0) в переменную типа TDateTime. И изменяй время в этой переменной например функцией IncMinute из DateUtils и отображай в лейбу с помощью FormatDateTime