F�rum Inverter data de formato: dd/mm/aaaa <=> aaaa/mm/dd #378588

31/05/2010

Pessoal Bom dia Estou gerando um arquivo TXT com base em uma tabela de um BD Access,,, com rela��o a gerar o aquivo esta sob controle, porem me deparei com detalhe que n�o achei um solu��o ainda: Tenho um campo de data com o formato: DD/MM/AAAA, quando na grava��o no TXT preciso inverter o formato para: AAAA/MM/DD e retirar as barras ficando assim: Na Tabela: 31/05/2010 No TXT: 20100531 Alguem poderia me ajudar? Grande abra�o a todos

Arildo Augusto

Curtir t�pico

+ 0

Responder

Posts

31/05/2010

Ulisses Silva

Arlindo, Me parece que voc� j� fez um poste semelhante por�m, disse que deveria ser em Delphi. Como voc� postou novamente na sala referente a t�picos sobre a linguagem Java, verifique se o exemplo abaixo serve como ajuda:

 
 //cria o formatador   
SimpleDateFormat formatador = new SimpleDateFormat("yyyyMMdd");   
// cria a string   4.String novoFormato = novoFormatador.format(data);

Caso sua necessidade seja de algo em Delphi, tente verificar a possibilidade do registro de sua d�vida no respectiva sala que aborda que trata de assuntos relacionados a linguagem solicitada. At�...

Responder

Gostei + 0

31/05/2010

Ulisses Silva

Corre��o: Segue exemplo c�digo limpo e formatado:

 
//cria o formatador   
SimpleDateFormat formatador = new SimpleDateFormat("yyyyMMdd");   
// cria a string   
String novoFormato = novoFormatador.format(data);

At�...

Responder

Gostei + 0

31/05/2010

Arildo Augusto

Pessoal,, Consegui resolver em Delphi mesmo com o uso de duas (2) fun��es function CDateStr(const date:tdatetime):string;
var
fano, fmes, fdia, fhora, fmin, fsec, fmilsec : word;
begin
decodeDateTime(date,fano,fmes,fdia,fhora,fmin,fsec,fmilsec);
result:=zeroesquerda2(fano,4)+zeroesquerda2(fmes,2)+zeroesquerda2(fdia,2)+zeroesquerda2(fhora,2)+zeroesquerda2(fmin,2)+zeroesquerda2(fsec,2);
end; **--- function ZeroEsquerda2(const I: integer; const Casas: byte): string;
var
Ch: Char;
begin
Result := IntToStr(I);
if Length(Result) > Casas then begin
Ch := '*';
Result := '';
end
else
Ch := '0';
while length(Result) < Casas do
result:=Ch+Result; Pode n�o ser a melhor forma, porem resolveu o meu problema, Caso puder ser melhorada,, fiquem a vontade. Mesmo assim agrade�o ao Ulisses pela resposta,, Fiquem todos com DEUS

Responder

Gostei + 0

03/06/2010

Dyego Carmo

Resolvido ?:

Responder

Gostei + 0

04/06/2010

Arildo Augusto

Com certeza

Responder

Gostei + 0

11/06/2010

Dyego Carmo

OK , ent�o pode fechar !

Responder

Gostei + 0