Converter string data de YYYYMMDD para DDMMYYYY .

Delphi

11/05/2007

[quote:95d48ea521=´Moderação´][color=red:95d48ea521]Título editado por Massuda

Por favor, não use apenas letras maiúsculas no título/texto.

Este tópico não foi bloqueado em respeito aos colegas que responderam.

No caso de reincidência, seus tópicos poderão vir a ser bloqueados.

Leia as :arrow: [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]Regras de Conduta[/url] do fórum.[/color:95d48ea521][/quote:95d48ea521]
SERÁ QUE ALGUEM PODE AMUJUDAR COM ESSE PROBLEMA NÃO ESTOU CONSEGUINDO FAZER ISSO NO MEU BD .


TENHO UM BD QUE GUARDA AS DATAS DESSA FORMA 20070501 E PRECISO CONVERTE-LAS PARA 01/05/2007 SERÁ QUE ALGUEM SABE ISSO .


Neobob

Neobob

Curtidas 0

Respostas

Martins

Martins

11/05/2007

Qual é o seu Banco?

Obs: Evite postar título totalmente em maiúsculo e a msg também.

Diga-nos qual é o seu banco.


GOSTEI 0
Marco Salles

Marco Salles

11/05/2007

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);



GOSTEI 0
Martins

Martins

11/05/2007

[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.


GOSTEI 0
Eurismar

Eurismar

11/05/2007

Outra forma de fazer...

//converter do formato DDMMYYYY para DD/MM/YYYY
procedure 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 DDMMYYYY
procedure TForm1.Button2Click(Sender: TObject);
var data:string;
begin
data := ´01/05/2007´;
Delete(data,3,1);
Delete(data,5,1);
ShowMessage(data);
end;


GOSTEI 0
Neobob

Neobob

11/05/2007

[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;


GOSTEI 0
Marco Salles

Marco Salles

11/05/2007

Tudo blz Marco? Já fazia um bom tempo q eu não aparecia por aqui,

é verdade . Tem que aparecer ++++

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.


é ... Realmente existe dupla interpretação


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


letra minuscula a gente leê com mais gosto.. :lol: :lol: :lol:


GOSTEI 0
Nightshade

Nightshade

11/05/2007

a função
FormatDateTime(´DDMMYYYY´,Date);
nao funciona?


GOSTEI 0
Marco Salles

Marco Salles

11/05/2007

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]


GOSTEI 0
POSTAR