Vc vai ter que criar uma função:
Function DataExtenso(Data : TDateTime):String;
// Retorna a data por extenso
const
vdia : array[1..7] of String = ('Domingo', 'Segunda Feira', 'Terça Feira', 'Quarta
Feira', 'Quinta Feira', 'Sexta Feira', 'Sabado');
vMes : array[1..12] of String = ('Janeiro', 'Fevereiro', 'Março', 'Abril', 'Maio',
'Junho', 'Julho', 'Agosto','Setembro', 'Outubro','Novembro','Dezembro');
begin
Result := vDia[DayOfWeek(Data)]+', '+FormatDateTime('dd',Data)+' de
'+vMes[StrToInt(FormatDateTime('mm',Data))]+' de '+FormatDateTime('yyyy',Data);
end;
falo
[]'s
----- Original Message -----
From: er83pet04
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 11:15 AM
Subject: [delphi-br] Exibir data do sistema no relatório
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]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte
Brasília
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[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
