Fórum Como formatar uma data: 21/04/03 para 21/04/2003? #149551
25/03/2003
0
Boa tarde companheiros...
vejam se podem me ajudar com esta dúvida.
Tenho uma data que obrigatoriamente deve ser digitada em um edit, no formato:
dd/mm/aa ex: 21/04/03
E devo apresenta-la num maskedit que tem o formato:
dd/mm/aaaa (ano com 4 digitos)
Acontece, que pelo fato do maskedit estar configurado para 4 digitos no ano, na hora que passo os dados da edit(21/04/03 - ano com 2 digitos) para o maskedit para ser apresentada na tela, o texto dentro do maskedit, fica assim:
21/04/ 03
Tem um jeito de configurar o conteudo deste edit, acrescentando ´20´ no ano, aí ficaria 2003.
O edit deve ter este conteudo para que eu passe o mesmo para dentro do maskedit, e não fique errado.
Obs:
Como está saindo: 21/04/ 03
Como deve ficar: 21/04/2003
Agradeço desde já se alguém puder me ajudar...
Um grande abraço a todos...
Pablo - Marília-SP
21/04/2003
estapara que na hora do maskedit receber
vejam se podem me ajudar com esta dúvida.
Tenho uma data que obrigatoriamente deve ser digitada em um edit, no formato:
dd/mm/aa ex: 21/04/03
E devo apresenta-la num maskedit que tem o formato:
dd/mm/aaaa (ano com 4 digitos)
Acontece, que pelo fato do maskedit estar configurado para 4 digitos no ano, na hora que passo os dados da edit(21/04/03 - ano com 2 digitos) para o maskedit para ser apresentada na tela, o texto dentro do maskedit, fica assim:
21/04/ 03
Tem um jeito de configurar o conteudo deste edit, acrescentando ´20´ no ano, aí ficaria 2003.
O edit deve ter este conteudo para que eu passe o mesmo para dentro do maskedit, e não fique errado.
Obs:
Como está saindo: 21/04/ 03
Como deve ficar: 21/04/2003
Agradeço desde já se alguém puder me ajudar...
Um grande abraço a todos...
Pablo - Marília-SP
21/04/2003
estapara que na hora do maskedit receber
Pablo_lima
Curtir tópico
+ 0
Responder
Posts
25/03/2003
Okama
Assumo que vc já tenha tentado alterar seu edit para 4 digitos e/ou não deu certo.
use isso:
Var DataTMP :TDate;
begin
DataTmp := StrtoDate( Edit1.Text );
maskEdit1.Text := FormatDateTime(´dd/mm/yyyy´, DataTMP)
end;
ou faça direto:
maskEdit1.Text := FormatDateTime(´dd/mm/yyyy´, StrToDate(Edit1.Text) );
use isso:
Var DataTMP :TDate;
begin
DataTmp := StrtoDate( Edit1.Text );
maskEdit1.Text := FormatDateTime(´dd/mm/yyyy´, DataTMP)
end;
ou faça direto:
maskEdit1.Text := FormatDateTime(´dd/mm/yyyy´, StrToDate(Edit1.Text) );
Responder
Gostei + 0
25/03/2003
Sandrodantas
ou então, vá até configurações regionais no painel de controle e mude o ano para 04 digitos. Funcionou comigo!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)