Data por extenso quick report

Dicas e Truques Delphi V 2.5

092 - Data por extenso no Quickreport
var
nrdia: Integer;
diasemana: array[1..7] of String;
meses: array[1..12] of String;
dia, mes, ano: Word;
begin
diasemana[1]:= ´Domingo´;
diasemana[2]:= ´Segunda-feira´;
diasemana[3]:= ´Terça-feira´;
diasemana[4]:= ´Quarta-feira´;
diasemana[5]:= ´Quinta-feira´;
diasemana[6]:= ´Sexta-feira´;
diasemana[7]:= ´Sábado´;
meses[1]:= ´Janeiro´;
meses[2]:= ´Fevereiro´;
meses[3]:= ´Março´;
meses[4]:= ´Abril´;
meses[5]:= ´Maio´;
meses[6]:= ´Junho´;
meses[7]:= ´Julho´;
meses[8]:= ´Agosto´;
meses[9]:= ´Setembro´;
meses[10]:= ´Outubro´;
meses[11]:= ´Novembro´;
meses[12]:= ´Dezembro´;
DecodeDate(DATE,ano,mes,dia);
nrdia:= DayOfWeek(DATE);
QRLabel1.Caption:= diasemana[nrdia]+´, ´+INTTOSTR(dia)+´ de ´+meses[mes]+´ de ´+INTTOSTR(ano);
end;