Cálcular Horas trabalhadas
21/01/2006
0
Ex.
Entrou 20:00 hrs do dia 20/01/2006
Saiu 06:00 hrs do dia 21/01/2006
Entrou 15:00 hrs do dia 21/01/2006
Saiu 20:00 hrs do dia 21/01/2006
e no final do mês efetuar a soma de todas as horas trabalhadas e quantos dias trabalhados[/b]
Josimar
Posts
21/01/2006
Glecio
Procedure TForm1.Button1Click(Sender: TObject);
Var
DataEntrada, DataSaida, HoraEntrada, HoraSaida, Dias, horas: double;
Begin
DataEntrada := StrToDate(´20/01/2006´); {Entrar Com esse dado}
DataSaida := StrToDate(´21/01/2006´); {Entrar Com esse dado}
HoraEntrada := 20; {Entrar Com esse dado}
HoraSaida := 6; {Entrar Com esse dado}
Dias := (DataSaida-DataEntrada);
Horas := ((Dias*24)+HoraSaida)-HoraEntrada;
ShowMessage(FloatToStr(Horas));
End;
Qualque dúvida estou a disposição . . .
Espero ter ajudado!!
21/01/2006
Josimar
Ex: Entrou 20:35 saiu 06:20
21/01/2006
Glecio
--> ´Horas := ((Dias*24)+HoraSaida)-HoraEntrada; ´ {Altere aqui}
Depois é só transformar em horas novamente: 7h 30min . . .
Se não conseguir ou não entendeu, poste novamente a mensagem q faço o algoritmo e te mando. . .
Espero ter ajudado!!!
21/01/2006
Josimar
21/01/2006
Glecio
Procedure TForm1.Button1Click(Sender: TObject);
Var
DataEntrada, DataSaida, HoraEntrada, HoraSaida: String;
Horas: TTime;
Begin
DataEntrada := ´20/01/2006´;
HoraEntrada := ´20:45´;
DataSaida := ´21/01/2006´;
HoraSaida := ´07:20´;
Horas := StrToDateTime(DataSaida+´ ´+HoraSaida)-StrToDateTime(DataEntrada+´ ´+HoraEntrada);
ShowMessage(TimeToStr(Horas));
End;
Espero ter ajudado!!!!!
04/04/2006
Wesleyavila
Clique aqui para fazer login e interagir na Comunidade :)