Colocando a data por extenso no Delphi

Veja neste exemplo como colocar uma data qualquer por extenso.

procedure TForm1.Button1Click(Sender: TObject);
const
    // Declara e inicializa o array de meses
    meses: Array[1..12] of String = (’Janeiro’, ‘Fevereiro’, ‘Março’, ‘Abril’,
        ‘Maio’, ‘Junho’, ‘Julho’, ‘Agosto’,
        ’Setembro’, ‘Outubro’, ‘Novembro’,
        ’Dezembro’);
    // Declara e inicializa o array de dias da semana
    diasemana: Array[1..7] of String = (’Domingo’, ‘Segunda-Feira’,
        ’Terça-Feira’, ‘Quarta-Feira’,
        ’Quinta-Feira’, ‘Sexta-Feira’,
        ’Sábado’);
var
    dia, mes, ano: Word;
    numdiasemana: Integer;
    dataextenso: String;
begin
    // Quebra a data
    DecodeDate(Date, ano, mes, dia);

    // Pega o número do dia da semana
    numdiasemana := DayOfWeek(Date);

    // Monta a data por extenso
    dataextenso := diasemana[numdiasemana] + ‘, ‘ +
        IntToStr(dia) + ‘ de ‘ +
        meses[mes] + ‘ de ‘ +
        IntToStr(ano);

    // Mensagem da data por extenso
    ShowMessage(dataextenso);
end;

Você poderá evoluir este exemplo e criar uma função que receba como parâmetro uma data qualquer e retorne a data por extenso já formatada.

Compare Preços de: Playstation 3, Xbox 360, Imposto de Renda, Notebooks, Plasma, Games, Como ganhar dinheiro no Buscapé.

3 Comentários para “Colocando a data por extenso no Delphi”

1. PETER em 23 de Abril de 2008 19:19

   < blockquote >< a href=”http://cheaptabletsonline.com/”>CheapTabletsOnline.com. Canadian Health&Care.Best quality drugs.Special Internet Prices.No prescription online pharmacy. No prescription drugs. Buy pills online< /a >…

   Buy:Female Cialis.Buspar.Ventolin.Seroquel.Lasix.Female Pink Viagra.Prozac.Advair.Wellbutrin SR.Nymphomax.SleepWell.Lipothin.Zetia.Amoxicillin.Aricept.Cozaar.Lipitor.Zocor.Acomplia.Benicar….

2. KELLY em 23 de Abril de 2008 3:00

   < blockquote >< a href=”http://cheaptabletsonline.com/”>CheapTabletsOnline.Com. Canadian Health&Care.No prescription online pharmacy.Special Internet Prices.Best quality drugs. Low price drugs. Order drugs online< /a >…

   Buy:Viagra Professional.Zithromax.Cialis Super Active+.Cialis Professional.Propecia.VPXL.Viagra Super Force.Cialis Soft Tabs.Levitra.Super Active ED Pack.Viagra Super Active+.Viagra.Soma.Cialis.Maxaman.Tramadol.Viagra Soft Tabs….

3. THOMAS em 23 de Abril de 2008 12:09

   < blockquote >< b >< a href=”http://us.cheapfashionspot.com/”>NEW FASHION store. Original designers collection at low prices!!! 20 % TO 70 % OFF. END OF SEASON SALE!!!< /a >< /b >< /blockquote >…

   BUY FASHION. TOP BRANDS: GUCCI, DOLCE&GABBANA, BURBERRY, DIESEL, ICEBERG, ROBERTO CAVALLI, EMPORIO ARMANI, VERSACE…

Deixe um Comentário sobre o Post