Cambiar formato de fecha 12/09/2011 a 12 de Septiembre de 2011

[[ElDioni]]

Hola,

con lo que propone Casimiro a mi no me funciona, he utilizado el uppercase y lo que ocurre es que también me pone en mayúsculas el día de la semana, en este caso 'LUNES', no se si así te sirve.

Saludos.

[negrokau]

lo voy a probar, gracias

[ecfisa]

Hola.

Si solamente querés el mes en mayúsculas podrías hacer:

Código Delphi [-]
function UpperCaseMonth(D: TDate): string;
var
  i: Integer;
begin
  Result:= FormatDateTime('dddd dd ''de'' mmmm yyyy', D);
  for i:= 1 to 12 do
    if Pos(LongMonthNames[i], Result) > 0 then
      Result:= StringReplace(Result, LongMonthNames[i], UpperCase(LongMonthNames[i]), []);
end;

Llamada de ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Fecha: string;
begin
  Fecha:= UpperCaseMonth(Date);
  ...
end;

Saludos.