Delphi: Obrigar o Delphi utilizar a data formatada

Publicado: março 17, 2010 em Delphi
Tags:, , , , ,

Hoje me deparecei com o seguinte problema, fui gerar um arquivo xml para o SNGPC da ANVISA e o arquivo nunca era aceito.

O problema da não aceitação do arquivo é porque o formatado de data dos arquivos xml’s tem que serem formatados no seguinte formato DD/MM/AA.

Além disso tem outra, o separador decimal tem que ser “.” (ponto) e o separador de milhar tem que ser “,” (virgula).

Para isso basta você acrescentar no OnActivate do seu programa o seguinte código.

Application.UpdateFormatSettings := False;
Application.UpdateMetricSettings := False;

ThousandSeparator := ‘,’;
DecimalSeparator  := ‘.’;
CurrencyDecimals  := 2;
DateSeparator     := ‘/’;
ShortDateFormat   := ‘dd/mm/yy’;
LongDateFormat    := ‘dd/mm/yy’;
TimeSeparator     := ‘:’;
TimeAMString      := ‘AM’;
TimePMString      := ‘PM’;
ShortTimeFormat   := ‘hh:mm’;
LongTimeFormat    := ‘hh:mm:ss’;

fonte: ActiveDelphi

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s