Calcular horas

[JonatasFn 0]

Pessoal, tenho quatro campos no meu bd:

 

data_saida, data_entrada, hora_saida, hora_entrada.

 

Eu preciso calcular as quantidade de horas ausentes.

 

Dessa forma, Entrada - Saida.

 

Mas além dos meus campos estarem separados, ou seja, a data separada da hora, eu não sei como unir as duas, muito menos calcular a quantidade de horas.

 

Como posso fazer isso? Que função devo usar?

[cads 0]

você pode usar esta função HoursBetween ela Retorna a quantidade de horas entre um intervalo

 

Encontrei esse exemplo acho que vai te ajudar.

 

Var

vData, vData2 : TDateTime;

vHoras : Int64;

begin

vData := StrToDateTime( Edit1.Text);

vData2 := StrToDateTime( Edit2.Text);

vHoras := HoursBetween( vData, vData2);

ShowMessage( IntToStr( vHoras ) );

end;