Como personalizar data em Delphi

Ol� galera, vamos a este artigo que tem como objetivo mostrar como podemos modificar separadores e formato de Data no Delphi.
Vamos iniciar incluindo algumas procedures na nossa class do formul�rio criado.
Listagem 1: Declaraç�o das procedures


type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure ExibirSeparadorData;
    procedure ExibirFormatoDataPequeno;
    procedure ExibirFormatoDataGrande;
  public
    { Public declarations }
  end;

Neste momento vamos implementar as mesmas usando o CTRL + SHIF + C, em cima de uma das declaraç�es.

Agora vamos a implementaç�o das procedures

Objetivo: Modificar o separador �/� por �-�
Listagem 2: Implementaç�o da procedure ExibirSeparadorData


procedure TForm1.ExibirSeparadorData;
begin
  ShowMessage('Atual DateSeparator : ' + DateToStr(Now));
  DateSeparator := '-';
  ShowMessage('Modificado DateSeparator : ' + DateToStr(Now));
end;

Objetivo: Modificar o formato curto da Data
Listagem 3: Implementaç�o da procedure ExibirFormatoDataPequeno


procedure TForm1.ExibirFormatoDataPequeno;
begin
  ShowMessage('Atual ShortDateFormat : ' + DateToStr(Now));
  ShortDateFormat := 'yyyy-mm-dd';
  ShowMessage('Modificado ShortDateFormat : ' + DateToStr(Now));
end;

Objetivo: Modificar o formato longo da Data
Listagem 4: Implementaç�o da procedure ExibirFormatoDataGrande


procedure TForm1.ExibirFormatoDataGrande;
var
  DataAtual : TDateTime;
  NovoFormato : string;

begin
  DataAtual := StrToDate('12/01/2012');

  // Exibindo Normal
  DateTimeToString(NovoFormato, 'dddddd', DataAtual);
  ShowMessage('12/01/2012 usando original = '+NovoFormato);

  // Exibindo Modificado
  LongDateFormat := 'dddd dd ''de'' mmmm yyyy';
  DateTimeToString(NovoFormato, 'dddddd', DataAtual);
  ShowMessage('12/01/2012 usando novo formato = '+NovoFormato);
end;

Agora para usarmos as procedures vamos fazer de maneira bem simples, coloque um TButton, e no evento onClick do mesmo implemente a chamada de todas as procedures, o problema � que voc� ir� ver diversos ShowMessages, se preferir faça um de cada vez.

Listagem 5: Implementaç�o do evento onClick do TButton


procedure TForm1.Button1Click(Sender: TObject);
begin
     ExibirSeparadorData;
     ExibirFormatoDataPequeno;
     ExibirFormatoDataGrande;
end;

Desta forma podemos trabalhar com diversos Bancos de Dados, sem nos preocupar com o formato de data que iremos passar pra ele, por exemplo, o mySQL usa 2012-01-12, j� o Firebird usa 12.01.2012. Resolvendo assim problemas de conversos e formaç�es excessivas em nosso c�digo.

Fico por aqui e at� a pr�xima.

Um abraço
Wesley Y

Como personalizar data em Delphi

Veja neste artigo que tem como objetivo mostrar como podemos modificar separador e formato de Data no Delphi.

Artigos relacionados