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

Anonymous

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar