Como personalizar hora em Delphi

Ol� galera, vamos a este artigo que tem como objetivo mostrar como podemos modificar os formatos de hora no Delphi, de maneira bem simples podemos trocar o �:� por �-� ou qualquer outro caractere desejado.

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 ExibirSeparadorHora;
    procedure ExibirFormatoHoraPequeno;
    procedure ExibirFormatoHoraGrande; 
  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 ExibirSeparadorHora


procedure TForm1.ExibirSeparadorHora;
begin
  ShowMessage('Atual TimeSeparator : ' + TimeToStr(Now));
  TimeSeparator := '-';
  ShowMessage('Modificado TimeSeparator : ' + TimeToStr(Now));
end;

Objetivo: Modificar o formato curto da Hora
Listagem 3: Implementaç�o da procedure ExibirFormatoHoraPequeno


procedure TForm1.ExibirFormatoHoraPequeno;
var
  HoraAtual : TTime;
  NovoFormato : string;

begin
  HoraAtual := StrToTime('07:55:25');

  // Exibindo Normal
  DateTimeToString(NovoFormato, 't', HoraAtual);
  ShowMessage('07:55:25 usando original = '+NovoFormato);

  // Exibindo Modificado
  ShortTimeFormat := 'hh nn ss';
  DateTimeToString(NovoFormato, 't', HoraAtual);
  ShowMessage('07:55:25 usando novo formato = '+NovoFormato);
end;

Objetivo: Modificar o formato longo da Hora
Listagem 4: Implementaç�o da procedure ExibirFormatoHoraGrande


procedure TForm1.ExibirFormatoHoraGrande;
var
  HoraAtual : TDateTime;
  NovoFormato : string;

begin
  HoraAtual := Now;

  // Exibindo Normal
  DateTimeToString(NovoFormato, 'tt', HoraAtual);
  ShowMessage(TimeToStr(Now) + ' usando original = '+NovoFormato);

  // Exibindo Modificado
  LongTimeFormat := 'hh nn ss (zzz)';
  DateTimeToString(NovoFormato, 'tt', HoraAtual);
  ShowMessage(TimeToStr(Now) + ' 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.Button3Click(Sender: TObject);
begin
     ExibirSeparadorHora;
     ExibirFormatoHoraPequeno;
     ExibirFormatoHoraGrande; 
end;

Como vimos n�o precisamos ficar presos aos formatos do nosso Sistema Operacional, desta forma podemos personalizar todas as horas usadas em nosso projeto.
Fico por aqui e at� a pr�xima.

Um abraço
Wesley Y

Como personalizar hora em Delphi

Veja neste artigo que tem como objetivo mostrar como podemos modificar os formatos de hora no Delphi, de maneira bem simples podemos trocar o �:� por �-� ou qualquer outro caractere desejado.

Artigos relacionados