Data por extenso quick report
04/01/2006
0
Ola amigos
Gostaria de saber se é possivel imprimir a data por extenso no quick report e qual componente posso usar
Gostaria de saber se é possivel imprimir a data por extenso no quick report e qual componente posso usar
Uiliangurjon
Curtir tópico
+ 0
Responder
Posts
04/01/2006
Caninha51
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;
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)