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 <[EMAIL PROTECTED]> 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 <*> 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