Formatando Data e Hora em Delphi Com a Função "FormatDateTime()"

Olá, Bom dia.

Vamos a mais uma dica.

Hoje vamos falar um pouco da função "FormatDateTime", função esta que está presente na Unit "SysUtils" do Delphi. Esta função retorna uma string com o formato passado no primeiro parâmetro(string) e tendo como base a data passada no segundo parâmetro(TDateTime).

Formato da função: FormatDateTime(formato, data).

Vamos a um exemplo prático:

1. Abra um novo projeto no Delphi;
2. No formulário principal, insira um "Memo" e um "Button"(Guia Standard);
3. No evento "OnClick" do botão, coloque o seguinte código:

  Memo1.Lines.Add(' ..:: Formatos Para Dia ::..');

  Memo1.Lines.Add('     d: ' + FormatDateTime('d', Now));

  Memo1.Lines.Add('    dd: ' + FormatDateTime('dd', Now));

  Memo1.Lines.Add('   ddd: ' + FormatDateTime('ddd', Now));

  Memo1.Lines.Add('  dddd: ' + FormatDateTime('dddd', Now));

  Memo1.Lines.Add(' ddddd: ' + FormatDateTime('ddddd', Now));

  Memo1.Lines.Add('dddddd: ' + FormatDateTime('dddddd', Now));

  Memo1.Lines.Add('');

  Memo1.Lines.Add(' ..:: Formatos Para Mês ::..');

  Memo1.Lines.Add('     m: ' + FormatDateTime('m', Now));

  Memo1.Lines.Add('    mm: ' + FormatDateTime('mm', Now));

  Memo1.Lines.Add('   mmm: ' + FormatDateTime('mmm', Now));

  Memo1.Lines.Add('  mmmm: ' + FormatDateTime('mmmm', Now));

  Memo1.Lines.Add('');

  Memo1.Lines.Add(' ..:: Formatos Para Ano ::..');

  Memo1.Lines.Add('     y: ' + FormatDateTime('y', Now));

  Memo1.Lines.Add('    yy: ' + FormatDateTime('yy', Now));

  Memo1.Lines.Add('  yyyy: ' + FormatDateTime('yyyy', Now));

  Memo1.Lines.Add('');

  Memo1.Lines.Add(' ..:: Formato Para Hora ::..');

  Memo1.Lines.Add('     h: ' + FormatDateTime(' h', Now));

  Memo1.Lines.Add('    hh: ' + FormatDateTime('hh', Now));

  Memo1.Lines.Add('');

  Memo1.Lines.Add(' ..:: Formatos Para Minuto ::..');

  Memo1.Lines.Add('     n: ' + FormatDateTime('n', Now));

  Memo1.Lines.Add('    nn: ' + FormatDateTime('nn', Now));

  Memo1.Lines.Add('');

  Memo1.Lines.Add(' ..:: Formatos Para Segundo ::..');

  Memo1.Lines.Add('     s: ' + FormatDateTime('s', Now));

  Memo1.Lines.Add('    ss: ' + FormatDateTime('ss', Now));

  Memo1.Lines.Add('');

  Memo1.Lines.Add(' ..:: Formatos Para Milisegundos ::..');

  Memo1.Lines.Add('     z: ' + FormatDateTime('z', Now));

  Memo1.Lines.Add('   zzz: ' + FormatDateTime('zzz', Now));

  Memo1.Lines.Add('');

  Memo1.Lines.Add(' ..:: Formatos de Personalizados ::..');

  Memo1.Lines.Add('                 dd/mm/yyyy: ' + FormatDateTime('dd/mm/yyyy', Now));

  Memo1.Lines.Add('                 yyyy/mm/dd: ' + FormatDateTime('yyyy/mm/dd', Now));

  Memo1.Lines.Add('                 mm/dd/yyyy: ' + FormatDateTime('mm/dd/yyyy', Now));

  Memo1.Lines.Add('                 yyyy/dd/mm: ' + FormatDateTime('yyyy/dd/mm', Now));

  Memo1.Lines.Add('                      dd/mm: ' + FormatDateTime('dd/mm', Now));

  Memo1.Lines.Add('                     dd/mmm: ' + FormatDateTime('dd/mmm', Now));

  Memo1.Lines.Add('                    dd/mmmm: ' + FormatDateTime('dd/mmmm', Now));

  Memo1.Lines.Add('         dd de mmmm de yyyy: ' + FormatDateTime('dd "de" mmmm "de" yyyy', Now));

  Memo1.Lines.Add('   dddd, dd de mmmm de yyyy: ' + FormatDateTime('dddd"," dd "de" mmmm "de" yyyy', Now));

  Memo1.Lines.Add('"Local", dd de mmmm de yyyy: ' + FormatDateTime('"Nome_Cidade," dd "de" mmmm "de" yyyy', Now));

    4.  Salve o projeto em uma pasta de sua escolha e compile a aplicação, após compilar na janela que irá abrir, clique no botão e veja o resultado gerado no campo "Memo".

    OBS.: Para fins de compatibilidade, esta dica foi escrita usando Delphi XE3.

Esta foi a dica de hoje, podem comentar a vontade.

Atenciosamente

Dica Chave.