Calculos de horas

Delphi

Firebird

22/10/2018

Boa noite estou com um problema para resolver isso aqui as variáveis são do tipo time:

entradap1:= IBQuerySelectHoras.fieldbyname(''''HORAS_ENTRADA_P1'''').AsInteger ;
saidap1:= IBQuerySelectHoras.fieldbyname(''''HORAS_SAIDA_P1'''').AsInteger;
entradap2:= IBQuerySelectHoras.fieldbyname(''''HORAS_ENTRADA_P2'''').AsInteger;
saidap2:= IBQuerySelectHoras.fieldbyname(''''HORAS_SAIDA_P2'''').AsInteger ;
totalHoras:= ((entradap1 - saidap1)+(entradap2 - saidap2)); // aqui ocorre o erro

showMessage(''''Soma de horas = ''''+totalHoras.Text);

showMessage(''''Entrada Manha = ''''+manhaEntrada.Text +#13+
''''Saida Manha''''+manhaSaida.Text +#13+
''''Entrada Tarde''''+tardeEntrada.Text +#13+
''''Saida Tarde''''+tardeSaida.Text +#13+
''''Total Trabalhado = ''''+totalHoras.Text );
end

retorna este erro aqui
[DCC Error] UPonto.pas(112): E2010 Incompatible types: ''''TEdit'''' and ''''Extended''''
[DCC Fatal Error] UPrincipal.pas(60): F2063 Could not compile used unit ''''UPonto.pas''''
Ismael

Ismael

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

22/10/2018

aparentemente totalHoras é um componente TEdit e você precisa atribuir o conteúdo à sua propriedade Text. 
totalHoras.Text := inttostr( (saidap1 - entradap1) [mais] (saidap2 - entradap2) ); // inverti a subtração, para não dar negativo
showMessage('Soma de horas = '+totalHoras.Text);

onde se lê [mais], troque pelo sinal de mais.
GOSTEI 0
Ismael

Ismael

22/10/2018

aqui esta resolvido muito oprigado
GOSTEI 0
POSTAR