Foros Club Delphi - Cambiar formato de fecha 12/09/2011 a 12 de Septiembre de 2011

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Cambiar formato de fecha 12/09/2011 a 12 de Septiembre de 2011 (https://www.clubdelphi.com/foros/showthread.php?t=75682)

negrokau

12-09-2011 16:46:58

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

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

12-09-2011 16:50:07

mmm me parece que hay una funcion para eso

chequea aqui

newtron

12-09-2011 16:58:28

Hola.

Prueba con esto.

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

Saludos

oscarac

12-09-2011 17:03:16

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

negrokau

12-09-2011 18:23:35

Cita:

Empezado por newtron (Mensaje 411845)

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

12-09-2011 18:26:10

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

oscarac

12-09-2011 18:32:43

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

negrokau

12-09-2011 18:35:27

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

newtron

12-09-2011 18:35:35

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

oscarac

12-09-2011 18:45:47

Cita:

Empezado por negrokau (Mensaje 411869)

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

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

negrokau

12-03-2012 11:25:51

Cita:

Empezado por oscarac (Mensaje 411846)

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

12-03-2012 11:54:28

Prueba a poner mmmm en mayúsculas MMMM

negrokau

12-03-2012 12:43:22

Gracias lo voy a probar...

ElDioni

12-03-2012 13:15:38

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

12-03-2012 14:08:18

lo voy a probar, gracias

ecfisa

12-03-2012 20:52:00

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

12-03-2012 21:02:00

Cita:

Empezado por negrokau (Mensaje 411842)

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

Cita:

Empezado por negrokau (Mensaje 411864)

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

12-03-2012 21:07:52

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.

La franja horaria es GMT +2. Ahora son las 00:33:49.