Calculo para saber o valor de Horas trabalhadas

[Sérgio H. Martins 0]

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/default/thumbsup.gif

[wilsoncrescencio 1]

Olá Sérgio... Bom dia...Porque você não disponibiliza o sisteminha também...É uma maneira de você mostrar seu trabalho, assim como eu fiz com o conversor de medidas para impressão..É só uma idéia....Um abraço