Talvez ajude..........
procedure TForm1.Button1Click(Sender: TObject);
var dt_normal : TDateTime ;
dt_soh_numero : string ;
begin
dt_normal := StrToDate(edit1.text) ;
dt_soh_numero := formatdatetime('DDMMYYYY',dt_normal);
label1.Caption := dt_soh_numero ;
end;
Natanael Rodrigues escreveu:
>
> FormatDatetime('ddMMyyyy',date)
>
> _____
>
> De: delphi-br@yahoogrupos.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>
> [mailto:delphi-br@yahoogrupos.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>] Em
> nome de pcinfowave
> Enviada em: segunda-feira, 3 de setembro de 2007 16:56
> Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> Assunto: [delphi-br] Retirar sinais de uma data
>
> Ola amigos,
> Alguem podria me passar uma função que retire os sinais de uma data,
> deixando apenas os numeros?
> Obrigado!
> []´
> Paulo
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
