Fórum Exibir data do sistema no relatório #256068

26/10/2004

0

Delphi

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


Barbara.michele

Barbara.michele

Responder

Posts

26/10/2004

Gabriel Ferrarini

Use a função FormatDateTime(´dd ´de´ mmmmm ´de´ yyyy, [variável do tipo datetime])

Gabriel


Responder

Gostei + 0

26/10/2004

Gabriel Ferrarini

Complementando.

No seu caso ficaria

lblData.caption := ´Rio de janeiro, ´ + FormatDateTime(´dd ´de´ mmmmm ´de ´ yyyy´, Present)


Responder

Gostei + 0

26/10/2004

Reginaldo174

[quote:b42c1e4741=´Gabriel Ferrarini´]Complementando.

lblData.caption := ´Rio de janeiro, ´ + FormatDateTime(´dd ´de´ mmmmm ´de ´ yyyy´, Present)[/quote:b42c1e4741]

Concordo com o Gabriel Ferrarini


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar