[Resolvido] Long Date

[Andre Renato 0]

Colegas,

 

Estou desenvolvento um sistema que gera uma carta de cobrança e é disparado para alguns clientes. Esse e-mail é gerado a partir de um arquivo html gerado de uma stringlist. No cabeçalho da carta, preciso colocar o local e data, por exemplo:

 

Sorocaba, 11 de Dezembro de 2007

 

Estou usando assim:

 

var
Agora: TDate;
dia, mes, ano: word;

Após begin:

 

Agora := now;
DecodeDate(agora, ano, mes, dia);

Na stringlist:

 

txDemo.Add('<br><font face=arial size=2><left>Sorocaba, '+ IntToStr(dia) +' de '+ IntToStr(mes) +' de '+ IntToStr(ano)+ '');

E está saindo:

 

Sorocaba, 11 de 12 de 2007

 

Vi que existe uma constante LongMonthNames, mas sei como utilizar.

Alguem pode me dar uma luz?

 

Valeu!

[rvlira 0]

Modifique a linha de inserção para o seguinte:

 

txDemo.Add('<br><font face=arial size=2><left>Sorocaba, '+ FormatDateTime('dd" de "mmmm" de "yyyy', Now));

FormatDateTime(Formato: string, Data: TDateTime)

 

"Formato" é uma string contendo o formato no qual a "Data" será exibida. "mmmm" retorna o nome do mês.

 

Para saber mais consulte no help do Delphi: "Date-Time Format Strings".

 

Repare que dessa forma você ainda economizou a variável agora. Se você só precisava dela para isso então pode remover a declaração dela e das outras variáveis.

 

t+!

[Andre Renato 0]

Beleeeza! Funcionou perfect!

Ficou assim (não necessariamente nessa ordem):

 

Data: string;
Data :=  FormatDateTime('dd" de "mmmm" de "yyyy', Now);
txDemo.Add('<br><font face=arial size=2><left>Sorocaba, '+ Data +'');

Valeu!