Campos Time????

Delphi

21/01/2004

Bom dia.

Minha duvida e o seguinte:
Tenho 3 campos TTime;
H_Saida:=StrToTime(MaskEdit1.Text); exe: 17:30
H_Saiu:=StrToTime(MaskEdit2.Text); 18:00
H_Extras:=(H_Saiu-H_saida); 18:00-17:30
MaskEdit3.Text:=H_Extras); 00:30
Gostaria que o MaskEdit3 mostre-me o resultado da Operação acima,
que e 00:30, mas não apresenta este hora.

O que esta errado?
Pode ser que eu não saiba converter horas para Numeros Inteiros ou qualquer outra coisa que não estou conseguindo acertar.

Agradeço qualquer tipo de explicação!


Marcelo_j.

Marcelo_j.

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

21/01/2004

Não sei foi erro na digitação mas esta linha estiver assim vai funcionar:

MaskEdit3.Text:=timetostr(H_Extras);


procedure TForm1.Button1Click(Sender: TObject);
begin
   H_Saida:=StrToTime(MaskEdit1.Text);
   H_Saiu:=StrToTime(MaskEdit2.Text);
   H_Extras:=(H_Saiu-H_saida);
   MaskEdit3.Text:=timetostr(H_Extras);
end;

[/code]


GOSTEI 0
Marcelo_j.

Marcelo_j.

21/01/2004

Deixe eu explicar melhor...

Procedure...
Var
H_Saida,H_Saiu,H_Extras:TTime;
Begin
H_Saida:=StrToTime(MaskEdit1.Text);{Horario normal de saida=17:30}
H_Saiu:=StrToInt(MaskEdit2.Text); {Horario que saiu. Exe:18:30}
H_Extras:=(H_Saiu-H_Saida); {Quarda a Hora Extra do dia = 01:00}
MaskEdit3.Text:=TimeToStr(H_Extra);
End;
Eu fiz deste jeito e não deu certo, aparece outros resultados.
Se alguem souber outro jeito de calcular, eu agradeço a dica.


GOSTEI 0
Marcelo_j.

Marcelo_j.

21/01/2004

Pelo amor de Deus!!!!!!!!!!

Desculpem a minha ignorancia :oops: eu consegui , o problema era que o tamanho do campo estava muito pequeno para apresntar o resultado da operação.

Peço mil desculpas :oops:


GOSTEI 0
Marcelo_j.

Marcelo_j.

21/01/2004

Ola! :lol:
Gostaria de saber como limpar uma tabela(Excluir todos os registros),
ao evento OnClick do Botão. :lol:


GOSTEI 0
Djjunior

Djjunior

21/01/2004

crie uma query com a seguinte string
delete from nome_tabela


GOSTEI 0
POSTAR