formata data...
01/02/2003
0
gostaria de saber como formato uma data usando um EDIT normal... sem maskedit... de forma que quando eu digito a data ela fique assim: 10101980, e quando ela for formatada ela fique assim: 10/10/1980.
Anonymous
Curtir tópico
+ 0
Responder
Posts
01/02/2003
Carlosc.jr
gostaria de saber como formato uma data usando um EDIT normal... sem maskedit... de forma que quando eu digito a data ela fique assim: 10101980, e quando ela for formatada ela fique assim: 10/10/1980.
Ola,
1 Crie uma nova aplicacao
2 coloque 1 componente edit
3 coloque 1 comoponent button
no evento onClick do botao escreva o codigo:
procedure TForm1.Button1Click(Sender: TObject);
var
dData: TDateTime;
begin
try
dData := StrToDate(copy(Edit1.Text,1,2) + ´/´+ copy(Edit1.Text,3,2) + ´/´ + Copy(Edit1.Text,5,4));
Edit1.Text := DateToStr(dData)
except
on EConvertError do
ShowMessage(´DATA Inválida!´);
end
end;
espero ter ajudado
Abracos
CARLOS Junior
carlosc.jr@uol.com.br
carlos@fw2.com.br
Responder
Clique aqui para fazer login e interagir na Comunidade :)