Десятые доли часа преобразовать в обычный вид.

[ul_mrAlex]

Помогите преобразовать десятичное число в обычный вид.
Идет расчет суммы столбца из базы:

PHP код:

var i: integer;
    s:double;
begin
try
S:=0;
i:=DM.ADO_PZP_V_DEPO.RecNo;
DM.ADO_PZP_V_DEPO.DisableControls;
DM.ADO_PZP_V_DEPO.First;
while not(DM.ADO_PZP_V_DEPO.Eof) do
begin
S:=S+DM.ADO_PZP_V_DEPO.FieldByName('plv_num').AsFloat;
DM.ADO_PZP_V_DEPO.Next;
end;
DM.ADO_PZP_V_DEPO.RecNo:=i;
DM.ADO_PZP_V_DEPO.EnableControls;
vr_zam.Text:=FloatToStr(s); 


Например S со значением 0,07 д.б. выведено как: 00:04
Пытался, баловался с этим:

PHP код:

minutes := MinutesBetween(s, 0);
Label16.Caption:=Format('%.2d:%.2d', [minutes div 60, minutes mod 60]); 


Выводит как: 01:40

[Аватар]

FormatDateTime('hh:nn:ss',s/24)

[ul_mrAlex]

Хорошо, спасибо!
Следующий вопрос.
Допустим число: 27,89 д.б. 27:53, показывает 03:53 т.е. он сутки прибавляет в уме.
PS Считается регулярность движения на транспорте.

[Аватар]

Выдели FormatDateTime и нажми F1. Или гугл в помощь по поводу функции FormatDateTime и её 1-го параметра. Но если суток будет больше 31, то проблема нарисуется

или так

FormatFloat('#0дн ;;#',Trunc(s/24))+FormatDateTime('hh:nn:ss',s/24)

[ul_mrAlex]

Спасибо. Отделался вот таким вариантом:

vr_zam1.Caption := IntToStr(Trunc(S)) + ':' + FormatDateTime('nn', Frac(S)*(1/24));

[ul_mrAlex]

Кхм. Расчет обманывает.
0:02 в десятые доли - 0,01, а д.б. 0,03
Как вывести правильно?

[Аватар]

А с чего это 2 минуты в десятые доли часа получили 0.01? Сотая доля часа - 36сек

[ul_mrAlex]

Ну вот, по кнопке расчет времени, в лейбл выводит 0,01.
Полностью код:

procedure TPVP_V_DEPO_PROSMOTR.BTN_zamClick(Sender: TObject);
var i: integer;
    s:double;
begin
try
DM.ADO_PZP_V_DEPO.Sql.Clear;
DM.ADO_PZP_V_DEPO.SQL.Text := 'SELECT * FROM PZP_V_DEPO WHERE date like :pDate1 and podrazd like :FindValue and ((PZP_V_DEPO.OPOZD)=0) and ((PZP_V_DEPO.PLV_NUM)<=0.17) '+
'and  (((PZP_V_DEPO.TEH)<>"23,1" And (PZP_V_DEPO.TEH)<>"23,2" And (PZP_V_DEPO.TEH)<>"25" And (PZP_V_DEPO.TEH)<>"26")) ORDER BY PZP_V_DEPO.ZAH';
DM.ADO_PZP_V_DEPO.Parameters.ParamByName('pDate1').Value := DateOf(date.Date);
DM.ADO_PZP_V_DEPO.Parameters.ParamByName('FindValue').Value:=DBCB_T_DEPO.Text;
DM.ADO_PZP_V_DEPO.Open;
i:=DM.ADO_PZP_V_DEPO.RecordCount;
zamena.Caption:=IntToStr(i);

S:=0;
i:=DM.ADO_PZP_V_DEPO.RecNo;
DM.ADO_PZP_V_DEPO.DisableControls;
DM.ADO_PZP_V_DEPO.First;
while not(DM.ADO_PZP_V_DEPO.Eof) do
begin
S:=S+DM.ADO_PZP_V_DEPO.FieldByName('plv_num').AsFloat;
DM.ADO_PZP_V_DEPO.Next;
end;
DM.ADO_PZP_V_DEPO.RecNo:=i;
DM.ADO_PZP_V_DEPO.EnableControls;
vr_zam.Text:=FloatToStr(s);
//FormatFloat('#0äí ;;#',Trunc(s/24))+FormatDateTime('hh:nn:ss',s/24)
vr_zam1.Caption := IntToStr(Trunc(S)) + ':' + FormatDateTime('nn', Frac(S)*(1/24));

except
on error: EDatabaseError do begin
MessageDlg('Ïðîèçîøëà îøèáêà ïðè âûïîëíåíèè çàïðîñà:'+
error.Message ,mtError,[mbOK],0);
end;
end;
end;

[ul_mrAlex]

Всё, разобрался!

[Аватар]

Вообще не вижу в коде, чтобы в Label что-либо в таком формате выводилось