quarta-feira, 16 de setembro de 2015

Aprenda a usar a variável global ShortDateFormat para controlar a formatação de datas

A variável global ShortDateFormat fornece a formatação curta usada, por padrão, na conversão de datas em strings. Esta variável é usada pelas funções DateToStr(), DateTimeToStr() e DateTimeToString(). Os caracteres de formatação usados são:

   y  = Ano com 2 dígitos 
  yy  = Ano com 2 dígitos 
yyyy  = Ano com 4 dígitos 
   m  = Número do mês do ano sem o 0 no início 
  mm  = Número do mês com 2 dígitos 
 mmm  = Mês usando nomes curtos (Jan) 
mmmm  = Mês usando nomes longos  (Janeiro) 
   d  = Número do dia sem o 0 no início 
  dd  = Número do dia com dois dígitos 
 ddd  = Dia usando nomes curtos (Dom) 
dddd  = Dia usando nomes longos  (Domingo) 

Veja o trecho de código abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
  data: TDateTime;
begin
  // vamos construir a data
  data := StrToDate('13/03/2009');

  // vamos exibir usando a formatação padrão de ShortDateFormat
  showMessage(DateToStr(data));

  // vamos alterar o padrão de formatação de ShortDateFormat
  ShortDateFormat := 'dd ''de'' mmmm ''de'' yyyy';

  // experimente também
  // ShortDateFormat := 'dd/mm/yyyy';

  // vamos exibir usando a nova formatação
  ShowMessage(DateToStr(data));
end;

Como a variável ShortDateFormat é indicada para uso global, é interessante você definir o formato customizado em apenas um lugar de seus códigos, de forma a reaproveitar a formatação nas demais partes de seus programas.

No Windows, a formatação inicial de ShowDateFormat vem de LOCALE_SSHORTDATE, uma constante da API do Windows.

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.

Nenhum comentário:

Postar um comentário