Somar Horas no Delphi

Delphi

25/03/2007

Pessoal, estou com uma tremenda dúvida, tenho um cadastro no SQL Serve, tipo DateTime que registra quando tempo o Pesquisador fica dentro do Laboratório por dia, queria gerar um relatório mensal que soma-se estas horas de permanência.
Alguem poderia me ajudar? Sou novo na área.


Artejose

Artejose

Curtidas 0

Respostas

P_lima

P_lima

25/03/2007

Fiz assim para acumular horas no Estacionamento

acho q pode te ajudar, ai tá o fonte do procedimento.

procedure TForm1.Button1Click(Sender: TObject);
var
dtmHora : TDateTime;
dtmHoraInicio, dtmHoraFim, dtmMinutoInicio,dtmMinutoFim : TDateTime;
intgrMinuto, intgrHora : integer;
strngMinuto, strngHora : string;
begin
lblHora.Caption :=´´;
dtmHoraInicio := dtmpckrInicio.DateTime + StrToTime(edtHoraInicio.Text);
dtmHoraFim := dtmpckrFinal.DateTime + StrToTime(edtHoraFinal.Text);
dtmMinutoInicio := StrToTime(edtHoraInicio.Text);
dtmMinutoFim := StrToTime(edtHoraFinal.Text);
intgrHora :=0;
//Procedimento que calcula a data e a hora de inicio data e a hora final em minuto.
intgrMinuto := MinutesBetween(dtmHoraInicio, dtmHoraFim);
//Laço que conta a hora e deixa apenas os minutos.
while intgrMinuto >= 60 do
begin
intgrMinuto := intgrMinuto - 60;
intgrHora := intgrHora +1;
end;

if intgrHora = 0 then
begin
lblHora.Caption := inttostr(intgrMinuto) + ´ Min´;
end
else
begin
if intgrMinuto = 0 then
lblHora.Caption := inttostr(intgrHora)+ ´ Hs´
else
lblHora.Caption := inttostr(intgrHora) + ´ Hr e ´ + inttostr(intgrMinuto) + ´ Min´;
end;

end;

se tiver alguma duvida manda um e-mail, blz.
silvinopassos@gmail.com


GOSTEI 0
POSTAR