mudar formatação de data

Delphi

01/03/2004

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


Gigatel

Gigatel

Curtidas 0

Respostas

Verlani

Verlani

01/03/2004

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!


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

01/03/2004

Colega,

Outra forma:

procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
  try
    Edit1.Text := FormatDateTime(´yyyymmdd´,StrToDate(MaskEdit1.Text));
  except
  end;
end;



GOSTEI 0
Gigatel

Gigatel

01/03/2004

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


GOSTEI 0
POSTAR