Converter string data de YYYYMMDD para DDMMYYYY .

Question

[quote:95d48ea521=�Modera��o�][color=red:95d48ea521]T�tulo editado por MassudaPor favor, n�o use apenas letras mai�sculas no t�tulo/texto.Este t�pico n�o foi bloqueado em respeito aos colegas que resp...

Martins · Answer

Qual � o seu Banco? Obs: Evite postar t�tulo totalmente em mai�sculo e a msg tamb�m.Diga-nos qual � o seu banco....

Marco Salles · Answer

pode ser feito assim;[code:1:928aad46f7]varStringVelha:String;novaString:String;beginStringVelha:=�20070501�;novaString:=copy(StringVelha,7,2)+�/�+copy(StringVelha,5,2)+�/�+copy(StringVelha,1,4);showmessage(novaString);[/code:1:928aad46f7]...

Martins · Answer

[quote:d5ffc2a96b=�Marco Salles�]pode ser feito assim;

var
StringVelha:String;
novaString:String;
begin
StringVelha:=�20070501�;
novaString:=copy(StringVelha,7,2)+�/�+copy(StringVelha,5,2)+�/�+copy(StringVelha,1,4);
showmessage(novaString);

[/quote:d5ffc2a96b]

Tudo blz [b:d5ffc2a96b]Marco[/b:d5ffc2a96b]? J� fazia um bom tempo q eu n�o aparecia por aqui, [b:d5ffc2a96b]Marco[/b:d5ffc2a96b] a sua dica server para ele converter os dados quando vierem do banco n�o � isso? Blz, pensei q ele quisesse fazer isso no BD, n�o li deireito o t�pico.

Eurismar · Answer

Outra forma de fazer...//converter do formato DDMMYYYY para DD/MM/YYYYprocedure TForm1.Button1Click(Sender: TObject);var data:String;begin  data := �01052007�;  Insert(�/�,data,3);  Insert(�/�,data,6);  ShowMessage(data);end;//converter do formato DD/MM/YYYY para DDMMYYYYprocedure TForm1.Button2Click(Sender: TObject);var data:string;begin  data := �01/05/2007�;  Delete(data,3,1);  Delete(data,5,1);  ShowMessage(data);end;...

Neobob · Answer

[quote:7620f2b726=�Modera��o�][color=red:7620f2b726]Por favor, n�o use apenas letras mai�sculas no t�tulo/texto.

Leia as :arrow: [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]Regras de Conduta[/url] do f�rum.[/color:7620f2b726][/quote:7620f2b726]
CARA VALEU PELA DICA , ESTAVA QUASE FICANDO SEM CABELOS , MAS AGORA EST� FUNCIONANDO BELEZA .

FICOU ASSIM .

procedure TF_Importar.Button9Click(Sender: TObject);
var
DATA_INICIO_VELHA:String;
DATA_INICIO_NOVA:String;

StringVelha2:String;
novaString2:String;

begin
QRY_ESTOQ.First;
IF NOT QRY_ESTOQ.EOF THEN
REPEAT
QRY_ESTOQ.Edit;
BEGIN
DATA_INICIO_VELHA:= QRY_ESTOQ.FieldByName(�T_OF_IN_MAQ_DATA_INICIAL�).AsString;
DATA_INICIO_NOVA:=copy(DATA_INICIO_VELHA,7,2)+�/�+copy(DATA_INICIO_VELHA,5,2)+�/�+copy(DATA_INICIO_VELHA,1,4);
QRY_ESTOQ.FieldByName(�T_OF_IN_MAQ_DATA_INICIAL�).AsString := DATA_INICIO_NOVA;

END;

QRY_ESTOQ.Next

UNTIL QRY_ESTOQ.EOF;

SHOWMESSAGE(�MUDAN�A DE C�DIGOS REALIZADA COM SUCESSO !!! .�);
QRY_ESTOQ.First;
end;

Marco Salles · Answer

[quote:c3a296ee41]Tudo blz Marco? J� fazia um bom tempo q eu n�o aparecia por aqui, [/quote:c3a296ee41]� verdade . Tem que aparecer ++++[quote:c3a296ee41]Marco a sua dica server para ele converter os dados quando vierem do banco n�o � isso? Blz, pensei q ele quisesse fazer isso no BD, n�o li deireito o t�pico.[/quote:c3a296ee41]� ... Realmente existe dupla interpreta��o[quote:c3a296ee41]CARA VALEU PELA DICA , ESTAVA QUASE FICANDO SEM CABELOS , MAS AGORA EST� FUNCIONANDO BELEZA . FICOU ASSIM . [/quote:c3a296ee41]letra minuscula a gente le� com mais gosto.. :lol:  :lol:  :lol:...

Nightshade · Answer

a fun��o FormatDateTime(�DDMMYYYY�,Date); nao funciona?...

Marco Salles · Answer

cita��o de [b:3848c7f525]nightshade[/b:3848c7f525]

a fun��o FormatDateTime(�DDMMYYYY�,Date); nao funciona?

[b:3848c7f525]n�o[/b:3848c7f525] , porque [b:3848c7f525]n�o[/b:3848c7f525] se trata de um Tipo Tdate e sim de um Tipo String

Alem disso , pelo que tudo indica parece o �[u:3848c7f525]problema[/u:3848c7f525]� ja fora resolvido

cita��o de [b:3848c7f525]neobob [/b:3848c7f525]

CARA VALEU PELA DICA , ESTAVA QUASE FICANDO SEM CABELOS , MAS AGORA EST� FUNCIONANDO BELEZA . FICOU ASSIM .

Falando em �problema� e quanto ao seu amigo [b:3848c7f525]nightshade[/b:3848c7f525]

http://forum.devmedia.com.br/viewtopic.php?t=86643&highlight=&sid=c717dec7140713dd570a092038219406

[b:3848c7f525][u:3848c7f525]muito obrigado[/u:3848c7f525][/b:3848c7f525]

F�rum Converter string data de YYYYMMDD para DDMMYYYY . #341603