dê seu feedback
post favorito
Personalizando Data
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
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
Objetivo: Modificar o formato curto da Data
Listagem 3: Implementação da procedure ExibirFormatoDataPequeno
Objetivo: Modificar o formato longo da Data
Listagem 4: Implementação da procedure ExibirFormatoDataGrande
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
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
www.lithic.com.br
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;
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;
Listagem 5: Implementação do evento onClick do TButton
procedure TForm1.Button1Click(Sender: TObject);
begin
ExibirSeparadorData;
ExibirFormatoDataPequeno;
ExibirFormatoDataGrande;
end;
Fico por aqui e até a próxima.
Um abraço
Wesley Y
www.lithic.com.br
0 COMENTÁRIO
Você está em:
canal Delphi
Publicidade
Wesley Yamazack
Space do autor
Graduado em Analise de Sistemas, no ramo de desenvolvimento há mais de 6 anos, onde atuou em empresas de diversos seguimentos como financeiro, comercial, estacionamento, etc. Atualmente analista desenvolvedor terceirizado da Marinha do Brasil, além de desenvolver projetos através da minha empresa Li...
Space do autor
0
0
