Calculo com horas. Ajuda !

Delphi

23/08/2005

Tenho 2 campos: hora_inicial e hora_final, preciso fazer uma calculo para retornar a diferença entre as horas (total de horas = hora_final - hora_inicial)
Hora_inicial: 08:30
Hora_final : 10:00

Resultado em Valores: 1,30

Alguem poderia me dar alguma dica, ou teria um exmplo?

Obrigado.


Mfilho

Mfilho

Curtidas 0

Respostas

Rjun

Rjun

23/08/2005

Para fazer calculo de horas é so fazer operações entre tipos TTime.

procedure TForm1.Button1Click(Sender: TObject);
var
  Hora1, Hora2, Hora3: TTime;
begin
  Hora1 := StrToTime(Edit1.Text);
  Hora2 := StrToTime(Edit2.Text);
  Hora3 := Hora2 - Hora1;
  Edit3.Text := TimeToStr(Hora3);
end;



GOSTEI 0
Marco Salles

Marco Salles

23/08/2005

[b:59d49153e4]Qual a sua dificuldade [/b:59d49153e4] :?: :?: :?: :?: 

Function DiferencaHoras(Horainicial,HoraFinal:TTime);TTime;
begin
result:=HoraInicial-HoraFinal; //Numero de ponto flutunate...
end;

Para mostar:

Showmessage(TimeToStr(DiferencaHoras(hora_inicial,hora_final));


[b:59d49153e4]Ou para atribuir[/b:59d49153e4]

var
 Diferenca:TTime;
 hora_inicial,hora_final:TTime;

begin
 diferenca:=hora_inicial - hora_final;



GOSTEI 0
POSTAR