formata data...

01/02/2003

2

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.


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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar