|
Yo tengo la siguiente función para convertir tiempo en segundos pero variandola apenas la conviertes a minutos o a horas, la fun ción es:
function TiempoDes(tirmpo:TDateTime): string;
var
Hour,min,sec,msec : Word;
conttirmpo:integer;
begin
DecodeTime(tirmpo,hour,min,sec,msec);
conttirmpo:=(hour * 3600)+(Min * 60)+sec;
Result := inttostr(conttirmpo);
end;
como puedes ver es muy simple y te devuelve un valor str, si la varias a penas te devolveria valor integer, y ya a qui la tratas como cualquier operación normal, por lo que entiendo tendrias que usarla mas o menos asi
Tform1.button1Click(sender)
begin
label1.caption:=inttostr(strtoint(tiempodesc((table1.hotafinal.value-table1.horainicial.value)))*srttoint(edit1.text));
end;
donde edit1 es el valor por el que quieres multiplicar, ojo recuerda que si es para $ deves usar strtoFloat y floattostr, espero te valga todo el tema.
Un saludo desde Canarias.
|