Determinar mes a partir de una fecha

[cloayza]

Para que inventar la rueda amigos...

Ya existen los vectores que contienen los nombres de los meses, estan en la unit SysUtils.

Código Delphi [-]
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
      ShowMessage(SysUtils.ShortMonthNames[ MonthOf(DateTimePicker1.Date) ]); //Ene, Feb, Mar
      ShowMessage(SysUtils.LongMonthNames[ MonthOf(DateTimePicker1.Date) ]); //Enero, Febrero, ...
end;

Saludos cordiales

[[Chris]]

algo un poco más simple talvez :

Código Delphi [-]
    ShowMessage(FormatDateTime('mmmm', mi_variable_fecha))

Nota: El único inconveniente es que este código depende de la configuración regional y de idiomas configuradas en el sistema. Si por ejemplo un usuario tiene configurado Inglés (EEUU) entonces los nombre de los meses apareceran en Inglés. Para solucionar esto es necesario pasar una variable de tipo TDatetimeSettings en el último parámetro de la función FormatDateTime.

[[Caral]]

Hola
Bueno, no se, pero a mi no me va este ejemplo.
Me dice que no he declarado MonthOf.
Me da la impresion de que es por el Delphi 6 que uso.
Por si las dudas, si he declarado SysUtils.
Que hago mal?
Saludos

[cloayza]

Puede ser lo que tu dices...

Yo tengo el D2007...La función MonthOf, esta en la unit DateUtils.

Saludos

[[Caral]]

Hola
Entonces asumo que en delphi 7 que es el que usa ekstase tampoco funcionara, osea: Seguiremos inventando la rueda.
Lo que da la impresion es de que a la hora de preguntar se va a tener que tener en cuenta que delphi se usa ya que si que varian las cosas.
Saludos

[[Caral]]

Hola

Empezado por Caral

Hola
Entonces asumo que en delphi 7 que es el que usa ekstase tampoco funcionara, osea: Seguiremos inventando la rueda.
Lo que da la impresion es de que a la hora de preguntar se va a tener que tener en cuenta que delphi se usa ya que si que varian las cosas.
Saludos

Rectifico ya que no leí bien y ahora mecionaste la unidad adecuada:
NO DEPENDE en este caso del delphi, la unidad no es sysutils, es DateUtils, liguera diferencia.
El codigo SI funciona.
Saludos

[cloayza]

Amigo Caral, al parecer no comprendiste bien...

Yo dije

Ya existen los vectores que contienen los nombres de los meses, estan en la unit SysUtils

En ningun momento hago referencia a la funcion MonthOf, que como te indico esta en otra unidad.

Saludos

[[Caral]]

Hola
Si amigo, pero si no dices que se necesita colocar la unidad DateUtils el codigo que pusiste no funciona.
Hay que declarar en el USES la unidad DateUtils, de lo contrario da el error que mencione.
Me estoy refiriendo al codigo que pusiste nada mas.
Saludos

[ecfisa]

Hola.

En Delphi 7 la opción de cloayza funciona bién, pero me sucede algo raro con ShowMessage:

Código Delphi [-]
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  ShowMessage(SysUtils.LongMonthNames[MonthOf(DateTimePicker1.Date) ]); 
end;

Desplegado el DateTimePicker, al hacer click sobre la flecha para avanzar el més, muestra el cuadro de dialogo con el nombre del mes y luego de aceptar entra en ciclo infinito...

No sucede lo mismo si:

Código Delphi [-]
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  Caption:= SysUtils.LongMonthNames[MonthOf(DateTimePicker1.Date) ]
end;

O si se edita el mes por teclado.

Supongo que al aceptar el cuadro de diálogo vuelve al DateTimePicker, disparando nuevamente el evento OnChange. Voy a investigarlo...

Saludos.