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

[negrokau]

Empezado por oscarac

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
varhoy:TDate;
begin
hoy:=Date;
ShowMessage(FormatDateTime('dddd dd ''de'' mmmm yyyy',hoy));
end;

Hola a todos, tanto tiempo, tengo un problemilla, como se puede poner el mes en mayusculas? el formeto me convierte super bien solo que el mes lo convierte en minuscula (11 de septiembre 2012), lo que necesito es que me convierta asi (11 de SEPTIEMBRE 2012), me podrian ayudar a solucionarlo, desde ya muchas gracias...

[Casimiro Noteví]

Prueba a poner mmmm en mayúsculas MMMM

[negrokau]

Gracias lo voy a probar...

[[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.