Fórum mudar formatação de data #217391
01/03/2004
0
tenho um data com seguinte formatação 10/02/2004
tenho um maskedit onde digito e formata automaticamente,
só que presciso que num edit apareça esta formatação 20040210 automaticamente.
seria o inverso do digitado acima sem as barras de divisão. será complicado isso ?
Valeuuuu
tenho um maskedit onde digito e formata automaticamente,
só que presciso que num edit apareça esta formatação 20040210 automaticamente.
seria o inverso do digitado acima sem as barras de divisão. será complicado isso ?
Valeuuuu
Gigatel
Curtir tópico
+ 0
Responder
Posts
01/03/2004
Verlani
Você pode fazer usando a função Copy, por exemplo:
edit1.text:=copy(maskedit1.text,7,4)+copy(maskedit1.text,4,2)+copy(maskedit1.text,1,2);
Espero ter ajudado!
edit1.text:=copy(maskedit1.text,7,4)+copy(maskedit1.text,4,2)+copy(maskedit1.text,1,2);
Espero ter ajudado!
Responder
Gostei + 0
01/03/2004
Aroldo Zanela
Colega,
Outra forma:
Outra forma:
procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
try
Edit1.Text := FormatDateTime(´yyyymmdd´,StrToDate(MaskEdit1.Text));
except
end;
end;
Responder
Gostei + 0
01/03/2004
Gigatel
Mt bom .... Mt bom mesmo... duas alternativas mt viaveis... galera valeu pelo apoio vou testar ambas as funções e ver qual é mais ideal para mim.. obrigado.....
Valeuuuuuuuuuuu
Valeuuuuuuuuuuu
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)