Guia Delphi

Como personalizar data em Delphi

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja neste artigo que tem como objetivo mostrar como podemos modificar separador e formato de Data no 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
 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?