uses a função abaixo e menos doloroso.
label1.caption := formatdatetime('ddd, dd "de" mmmm "de" yyyy' , date);
francisleisouza escreveu:
> ola meu nome é Francislei eu tou criando um programa comercial em Delphi
> atraves de um livro Delphi5 e meu pc ta com o programa instalado Delphi6 e eu
> tou na parte que pede para colocar DataHora por Extenso e pede para colocar
> estas linguajem.
> Exemplo:
> unit Unit1;
> interface
> uses
> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
> Dialogs, ComCtrls, ExtCtrls;
>
> type
> TFRMPrin = class(TForm)
> SBDataHora: TStatusBar;
> Timer1: TTimer;
> procedure Timer1Timer'(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> Function DataPorExtenso : String;
> end;
>
> var
> FRMPrin: TFRMPrin;
>
> Implementation
>
> {$R *.dfm}
>
> Function TFRMPrin.DataPorExtenso:String;
> const
> Meses :Array [1..12] of String =
> ('Janeiro','Fevereiro','Março','Abril','Maio',
> 'Junho','Julho','Agosto','Setembro','Outubro',
> 'Novembro','Desembro');
> Semana :Array [1..7] of String =
> ('Domingo','Segunda-Feira','Terça-Feira',
> 'Quarta-Feira','Quinta-Feira','Sexta-Feira',
> 'Sabado');
> Var
> Dia,Mes,Ano,DiaSem:Word;
> begin
> DecodeDate(Date,Ano,Mes,Dia);
> DiaSem := DayOfWeeK(Date);
> Result := Semana[DiaSem] + ','+ IntToStr(Dia) +
> ' de '+ Meses[Mes] + ' de ' + IntToStr(Ano);
> end;
> E ta dando este Erro: Expected';'but found Me ajuda por Favor
> Meu E mail francisleiso...@yahoo.com.br
>
>
>
