Buscar por:

Ajustando padrões de data e hora

Código

{Provavelmente este problema não é um dos mais complexos a ser resolvido em uma aplicação Delphi, mas não é muito confortável ficar dependendo da versão do Windows,do idioma ou da configuração do Painel de Controle.

Para que a sua aplicação funcione bem,independente da torcida,implemente uma chamada ao procedimento abaixo, meses e dias serão ajustados para o português, data será DD/MM/AAAA o separador decimal será o ponto e separador de milhar será a vírgula.}

procedure AcertaPadraoData;

const arrShortDayNames: array[1..7] of string[3] = ('Dom','Seg','Ter','Qua', 

'Qui','Sex','Sab');

arrLongDayNames: array[1..7] of string[15] = ('Domingo','Segunda','Terça', 

'Quarta','Quinta','Sexta', 'Sábado');

arrShortMonthNames: array[1..12] of string[3] = ('Jan','Fev','Mar','Abr', 

'Mai','Jun','Jul','Ago','Set','Out','Nov','Dez');

arrLongMonthNames: array[1..12] of string[15] = ('Janeiro','Fevereiro', 

'Março','Abril','Maio', 'Junho','Julho','Agosto', 'Setembro','Outubro', 

'Novembro','Dezembro');

var ii: integer;

begin

 ShortDateFormat := 'dd/mm/yyyy';

DecimalSeparator := '.';

ThousandSeparator := ',';

for ii := 1 to 7 do

begin

ShortDayNames[ii] := arrShortDayNames[ii];

LongDayNames[ii] := arrLongDayNames[ii];

end;

for ii := 1 to 12 do

begin

ShortMonthNames[ii] := arrShortMonthNames[ii];

LongMonthNames[ii] := arrLongMonthNames[ii];

end;

end;