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
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
Curtidas 0
Respostas
Gabriel Ferrarini
26/10/2004
Use a função FormatDateTime(´dd ´de´ mmmmm ´de´ yyyy, [variável do tipo datetime])
Gabriel
Gabriel
GOSTEI 0
Gabriel Ferrarini
26/10/2004
Complementando.
No seu caso ficaria
lblData.caption := ´Rio de janeiro, ´ + FormatDateTime(´dd ´de´ mmmmm ´de ´ yyyy´, Present)
No seu caso ficaria
lblData.caption := ´Rio de janeiro, ´ + FormatDateTime(´dd ´de´ mmmmm ´de ´ yyyy´, Present)
GOSTEI 0
Reginaldo174
26/10/2004
[quote:b42c1e4741=´Gabriel Ferrarini´]Complementando.
lblData.caption := ´Rio de janeiro, ´ + FormatDateTime(´dd ´de´ mmmmm ´de ´ yyyy´, Present)[/quote:b42c1e4741]
Concordo com o Gabriel Ferrarini
lblData.caption := ´Rio de janeiro, ´ + FormatDateTime(´dd ´de´ mmmmm ´de ´ yyyy´, Present)[/quote:b42c1e4741]
Concordo com o Gabriel Ferrarini
GOSTEI 0