converter data para string sem barras

Question

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

Rodolpho123 · Accepted Answer

Tente:[code:1:23759c0493]procedure TForm1.Button1Click(Sender: TObject);beginShowMessage(FormatDateTime(´ddmmyyyy´,date));end;[/code:1:23759c0493]...

Poderoso · Answer

Ajudou e muito. Thanks!!!...

Steve_narancic · Answer

e como faço o processo contrário?...

Garoto Programa · Answer

Você pode fazer:[code:1:814e3de4f8]strData:= ´09082006´datData:= StrToDate(Copy(strData,0,2)+´/´+Copy(strData,3,2)+´/´+Copy(strData,5,4));[/code:1:814e3de4f8]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....

Garoto Programa · Answer

Você pode fazer:[code:1:6cc19b23a3]strData:= ´09082006´datData:= StrToDate(Copy(strData,0,2)+´/´+Copy(strData,3,2)+´/´+Copy(strData,5,4));[/code:1:6cc19b23a3]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....

Fórum converter data para string sem barras #237853