FormatDateTime

[dreamsoft_PR]

Ola bom dia, sei que para escrever o mes do colocar FormatDateTime('MMMM' ,CAMPO)

so nao estou consegundo fazer o dia e ano em extenso ja tentei colocar yyyy  , alguém sabe ?

[carlosinfoteen]

9 horas atrás, dreamsoft_PR disse:

Ola bom dia, sei que para escrever o mes do colocar FormatDateTime('MMMM' ,CAMPO)

so nao estou consegundo fazer o dia e ano em extenso ja tentei colocar yyyy  , alguém sabe ?

formatDateTime('yyyy-mm-dd', CampoData)

formatDateTime('yyyy/mm/dd', CampoData)

 

formatDateTime('dd-mm-yyyy', CampoData)

formatDateTime('dd/mm/yyyy', CampoData)

 

formatDateTime('dd-mm-yy', CampoData)

e por ai vai...

[dreamsoft_PR]

18 horas atrás, carlosinfoteen disse:

formatDateTime('yyyy-mm-dd', CampoData)

formatDateTime('yyyy/mm/dd', CampoData)

 

formatDateTime('dd-mm-yyyy', CampoData)

formatDateTime('dd/mm/yyyy', CampoData)

 

formatDateTime('dd-mm-yy', CampoData)

e por ai vai...

Olá dessa forma tambem sei.. eu so coloquei o ano yyyy porque estou pegando o ano separado seguindo essae logica sua ficara 25/10/2018  o que estou precisando é "dia vinte e cinco de outubro de dois mil e dezoito" 

[BigWings]

42 minutos atrás, dreamsoft_PR disse:

Olá dessa forma tambem sei.. eu so coloquei o ano yyyy porque estou pegando o ano separado seguindo essae logica sua ficara 25/10/2018  o que estou precisando é "dia vinte e cinco de outubro de dois mil e dezoito" 

Não há como fazer o que quer pelo FormatDateTime.

Uma forma de fazer seria usando o componente ACBrExtenso.

uses
  ACBrExtenso;

[...]

function DataPorExtenso(const AData: TDateTime): String;
var
  ACBrExtenso: TACBrExtenso;
  Y, M, D: Word;
begin

  ACBrExtenso := TACBrExtenso.Create(nil);
  try
    ACBrExtenso.StrMoeda := '';
    ACBrExtenso.StrMoedas := '';

    DecodeDate(AData, Y, M, D);

    Result := Trim(ACBrExtenso.ValorToTexto(D)) + ' de ' + FormatDateTime('mmmm', AData) + ' de ' + Trim(ACBrExtenso.ValorToTexto(Y));

  finally
    ACBrExtenso.Free;
  end;

end;

 

[carlosinfoteen]

Em 26/10/2018 at 15:29, dreamsoft_PR disse:

Olá dessa forma tambem sei.. eu so coloquei o ano yyyy porque estou pegando o ano separado seguindo essae logica sua ficara 25/10/2018  o que estou precisando é "dia vinte e cinco de outubro de dois mil e dezoito" 

Tenta ai e adapta...

 

FormatDateTime(' dd ''de'' MMMM ''de'' yyyy', Now);  //---- troque o Now pelo seu campo data se não quiser a data atual

Vai retornar:  "27 de outubro de 2018", se testar hoje é claro. Agora é só adaptar a sua necessidade.