Não precisa nada disso, existe uma forma mais simples
coloque no evento BeforePrint do QuickReport
QRLabel26.Caption:= FormatDateTime('"Rio de Janeiro, "dddd", "d" de "mmmm" de
"yyyy',date);
Nielsen Cassiano Simões <[EMAIL PROTECTED]> wrote:
Coloque no OnPrint do QRLabel:
Value := FormatDateTime(LongDateFormat, Date);
Delete(Value, 1, Pos(',', Value));
Value := 'Rio de Janeiro,' + Value;
Nielsen
On Tue, 26 Oct 2004 14:15:20 -0000, er83pet04 wrote:
>
>
> Estou querendo exibir no meu relatório a data do sistema. Para fazer
> isso coloquei:
>
> var
> Present: TDateTime;
> Year, Month, Day : Word;
> begin
> Present:= Now;
> DecodeDate(Present, Year, Month, Day);
>
> lblData.Caption := 'Rio de Janeiro, ' + IntToStr(Day) + ' de ' +
> IntToStr(Month) + ' de ' + IntToStr(Year);
>
> Assim, está sendo exibido: Rio de Janeiro, 26 de 10 de 2004.
>
> Como faço para exibir o mês por extenso?
> Ex.: Rio de Janeiro, 26 de OUTUBRO de 2004.
>
> Existe alguma função específica para isso?
>
> Obrigada
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---------------------------------
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
