Fórum Converter data para extenso ? #193607

Olá, Coimbra

Tente isso

rlData.Caption := FormatDateTime(´´São Paulo,´ dd ´de´ mmmm ´de´ YYYY´,date);

Espero ter ajudado

frare Obrigada pela ajuda !

gostaria de gravar essas informações separadas exemplo:

depois de converter para extenso gostaria de salvar
o dia,mes,ano em campos separados

Campos:

dia
mes
ano

Obrigada !

Renata Coimbra

Tente isso
const

WeekDays : Array[1..7] of String =
(´Sunday´,´Monday´,´Tuesday´,´Wednesday´,
´Thursday´,´Friday´,´Saturday´);

Months : Array[1..12] of String =
(´January´,´February´,´March´,´April´,´May´,
´June´,´July´,´August´,´September´,´October´,
´November´,´December´);

Function DayOfWeek( Day : Integer ): String;
Begin
DayOfWeek := WeekDays[Day+1];
End;

Function Months( Month : Integer ): String;
Begin
Months := Months[Day+1];
End;

Espero ter ajudado :wink: