Essa é velha! - Como mudar ano de 2 díg. em 4?

[O Arquiteto 0]

:wacko: Essa é velha mas estou me batendo, como mudo automaticamente uma datano DBEdit com máscara de edição __/__/____ (Exemplo: 20/01/05) para 20/01/2005?, o que quero é que quando eu digitar 20/01/05 mude automaticamente para 20/01/2005.Abraço a todos!

[Paulo_Amorim 0]

Olá

 

Pode-se programar no OnExit?

 

    try        MaskEdit1.Text := FormatDateTime('dd/mm/yyyy', StrToDate(MaskEdit1.Text) );     except     end;

O try..except está apenas para o caso de a data não ser válida. Nesse caso, ele não irá transformar

 

Espero que ajude

Até+

[O Arquiteto 0]

:D Obrigado Paulo, vou tentar!Abraço!

[Mach 5 0]

Ou

 

Colocar este código no form principal.

 

procedure TForm1.FormCreate(Sender: TObject);begin   ShortDateFormat:='dd/mm/yyyy';end;