Fórum Campos Time???? #207988
21/01/2004
0
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.
Curtir tópico
+ 0Posts
21/01/2004
Fabio.hc
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
21/01/2004
Marcelo_j.
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
23/01/2004
Marcelo_j.
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
23/01/2004
Marcelo_j.
Gostaria de saber como limpar uma tabela(Excluir todos os registros),
ao evento OnClick do Botão. :lol:
Gostei + 0
23/01/2004
Djjunior
delete from nome_tabela
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)