converter data para string sem barras

Delphi

15/06/2004

Como faço para converter uma data para string sem as barras?
15/06/2004 para 15062004. Já tentei datetostr(date).
Obrigado .


Poderoso

Poderoso

Curtidas 0

Melhor post

Rodolpho123

Rodolpho123

15/06/2004

Tente:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FormatDateTime(´ddmmyyyy´,date));
end;



GOSTEI 1

Mais Respostas

Poderoso

Poderoso

15/06/2004

Ajudou e muito.
Thanks!!!


GOSTEI 0
Steve_narancic

Steve_narancic

15/06/2004

e como faço o processo contrário?


GOSTEI 0
Garoto Programa

Garoto Programa

15/06/2004

Você pode fazer:
strData:= ´09082006´
datData:= StrToDate(Copy(strData,0,2)+´/´+Copy(strData,3,2)+´/´+Copy(strData,5,4));

Você pode utilizar as funções LeftStr e RightStr caso acha mais facil mas desta forma funciona. Caso alguem tenha uma forma mais simples, não deixe de postar para enriquecer nosso Forum.

Abraços e que Deus continue nos abençoando.


GOSTEI 0
Garoto Programa

Garoto Programa

15/06/2004

Você pode fazer:
strData:= ´09082006´
datData:= StrToDate(Copy(strData,0,2)+´/´+Copy(strData,3,2)+´/´+Copy(strData,5,4));

Você pode utilizar as funções LeftStr e RightStr caso acha mais facil mas desta forma funciona. Caso alguem tenha uma forma mais simples, não deixe de postar para enriquecer nosso Forum.

Abraços e que Deus continue nos abençoando.


GOSTEI 0
POSTAR