Calculo para saber o valor de Horas trabalhadas

Olá pessoal http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif , vou compartilhar algo que tive dificuldade pra fazer pois sou iniciante, mas já que deu certo ai vai... O Codigo abaixo serve para saber qual o valor do serviço de um funcionario calculando um periodo de tempo * valor da hora. Espero que isso ajude alguem, um grande abraço a todos que me ajudam bastante.

varHorachegada,horasaida : TDateTime;resuldif:string;Result:integer;valor_sv, valor_final:real;begin if key=#13 then //Retorna a diferença entre duas horas} begin horachegada := StrTotime(dbedit2.text); horasaida := StrToTime(dbedit3.Text); If (dbedit2.text < dbedit3.Text) then begin Resuldif := TimeToStr((StrTotime('23:59:59')-horachegada)+horasaida); resuldif := TimeToStr(horachegada-horasaida); //Resultado da diferença entre datas dbedit7.text:=(resuldif); //Conversão de horas para minutos Result := (StrToInt(Copy(resuldif,1,2))*60) + StrToInt(Copy(resuldif,4,2)); //Calculo de Horas * valor da hora / por 60 valor_sv:=(result)*(strtofloat(dbedit5.text)/60); //Arredonda o resultado para 3 casas decimais valor_final := round(valor_sv * 1000) / 1000; //Resultado label14.caption:=floattostr(valor_final); end; end; end;

 [http://forum.imasters.com.br/public/style_emoticons/](http://forum.imasters.com.br/public/style_emoticons/)default/thumbsup.gif