F�rum FormatDateTime n�o funciona #481509

05/06/2014

Srs, estou tentando mostrar um campo data de minha tabela no formato 'dd/mm/yyyy' com FormatDateTime mas esta dando o seguinte erro:( "2014-06-04" is not a valid date time ), curioso que quando coloco now ele funciona normal. Alguem poderia me ajudar, j� tentei de tudo mas n�o estou conseguindo resolver o problema.

Obrigado,

Vantuil.

PS: Meu banco � SQ-Server 2008r2 e estou usando Delphi XE3

Vantuil Amante

Curtir t�pico

+ 0

Responder

Posts

05/06/2014

Cau� Nishijima

Posta como voc� esta fazendo pra ficar mais f�cil detectar o que pode estar errado!

Responder

Gostei + 0

05/06/2014

Vantuil Amante

FormatDateTime('dd/mm/yyyy',queryApont.FieldByName('apt_data_apont').AsDateTime)

Responder

Gostei + 0

05/06/2014

Edinei Steffen

Por hora isso pode te ajudar. Transforme isso em uma fun��o e toda vez que vc quiser formatar chame esta fun��o.

var
  txt,tmp, d, m, a, data_ok: string;
begin
  tmp := queryApont.FieldByName('apt_data_apont').AsString;
  txt := copy(tmp,1,pos('-',tmp)-1);
  delete(tmp,1,pos('-',tmp));
  if length(txt) > 2 then
    a := txt;
  txt := copy(tmp,1,pos('-',tmp)-1);
  delete(tmp,1,pos('-',tmp));
  m := txt;
  txt := copy(tmp,1,pos('-',tmp)-1);
  delete(tmp,1,pos('-',tmp));
  d := txt;
  data_ok := d + '/' + m + '/' + a;
end;

OBS.: As configura��es regionais do teu computador est�o no padr�o "dd/MM/yyyy"... Quem sabe pode ser isso...

Responder

Gostei + 0

05/06/2014

Edinei Steffen

Por hora isso pode te ajudar. Transforme isso em uma fun��o e toda vez que vc quiser formatar chame esta fun��o.

var
  txt,tmp, d, m, a, data_ok: string;
begin
  tmp := queryApont.FieldByName('apt_data_apont').AsString;
  txt := copy(tmp,1,pos('-',tmp)-1);
  delete(tmp,1,pos('-',tmp));
  if length(txt) > 2 then
    a := txt;
  txt := copy(tmp,1,pos('-',tmp)-1);
  delete(tmp,1,pos('-',tmp));
  m := txt;
  txt := copy(tmp,1,pos('-',tmp)-1);
  delete(tmp,1,5);
  d := txt;
  data_ok := d + '/' + m + '/' + a;
end;

OBS.: As configura��es regionais do teu computador est�o no padr�o "dd/MM/yyyy"... Quem sabe pode ser isso...

Responder

Gostei + 0

05/06/2014

Edinei Steffen

Corrigido...

Por hora isso pode te ajudar. Transforme isso em uma fun��o e toda vez que vc quiser formatar chame esta fun��o.

var
  txt,tmp, d, m, a, data_ok: string;
begin
  tmp := queryApont.FieldByName(''apt_data_apont'').AsString;
  txt := copy(tmp,1,pos(''-'',tmp)-1);
  delete(tmp,1,pos(''-'',tmp));
  if length(txt) > 2 then
    a := txt;
  txt := copy(tmp,1,pos(''-'',tmp)-1);
  delete(tmp,1,pos(''-'',tmp));
  m := txt;

  d := tmp;
  data_ok := d + ''/'' + m + ''/'' + a;
end;

OBS.: As configura��es regionais do teu computador est�o no padr�o "dd/MM/yyyy"... Quem sabe pode ser isso...

Responder

Gostei + 0

05/06/2014

Vantuil Amante

verifiquei no meu micro e no servidor onde vai ser executado, esta no padr�o "dd/MM/yyyy"....mas vamos rodar sua fun��o pra ver se vai dar certo. obrigado.

Responder

Gostei + 0

05/06/2014

Vantuil Amante

Edinei, sua rotina funcionou numa boa, muito obrigado!!!!

Responder

Gostei + 0