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

[negrokau]

hola, me encuentro con este inconveniente, como puedo cambiar el formato de esta fecha 12/09/2011 a 12 de Septiembre de 2011, habra alguna forma? les agradezco la ayuda..

[[oscarac]]

mmm me parece que hay una funcion para eso

chequea aqui

[[newtron]]

Hola.

Prueba con esto.

Código Delphi [-]
  FormatDateTime('d "de "mmmm "de "yyyy',Fecha);

Saludos

[[oscarac]]

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

[negrokau]

Empezado por newtron

Hola.

Prueba con esto.

Código Delphi [-] FormatDateTime('d "de "mmmm "de "yyyy',Fecha);


Saludos

es lo que necesitaba, como lo puedo mostrar en un QRLabel? o como lo puedo mostrar en un reporte?

[negrokau]

ya lo solucione, muchas gracias por la ayyuda....

[[oscarac]]

parece que negrokau... esta mas atento...

[negrokau]

jajaja, el que no sabe aprende, aunque sea despacio jajaja

[[newtron]]

Yo creo que ya ha cubierto el cupo de preguntas para todo el año.

[[oscarac]]

Empezado por negrokau

jajaja, el que no sabe aprende, aunque sea despacio jajaja

tienes toda la razón....
quiza con el tiempo.. seas tú él que de las respuestas a nuestras preguntas

[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 Notevi]

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.

[[Chris]]

Empezado por negrokau

hola, me encuentro con este inconveniente, como puedo cambiar el formato de esta fecha 12/09/2011 a 12 de Septiembre de 2011, habra alguna forma? les agradezco la ayuda..

Tres mensajes después ...

Empezado por negrokau

es lo que necesitaba, como lo puedo mostrar en un QRLabel? o como lo puedo mostrar en un reporte?

Cuando veo este tipo de hilos los dejo de leer -cierro la pestaña- inmediatamente. No te vallas a ofender, tómalo como consejo. Se explícito en lo que necesitas.

saludos

[ecfisa]

Hola.

Es mas... pensándolo bién, se puede resumir a:

Código Delphi [-]
...
uses DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  Fecha: string;
begin
  Fecha:= StringReplace(FormatDateTime('dddd dd ''de'' mmmm yyyy', Date),
                        LongMonthNames[MonthOf(Date)],
                        UpperCase(LongMonthNames[MonthOf(Date)]),[]);  
  ...
end;

Saludos.