Buscar por:

Data por extenso no quickreport

Código

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;