Determinar mes a partir de una fecha

[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

[cloayza]

Ta bien...te concedo el comentario...

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

Esta bien así Caralsito...

[[Caral]]

Hola
Si amigo, por eso es que siempre digo que vosotros los maestros colocais las cosas como si nosotros los novatos supieramos de esto.
Ahora si, hasta yo lo entiendo.
Gracias por la aclaracion.
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.

[cloayza]

Ahora he probado el codigo y por lo menos en D2007, no parecer comportarce en mala forma.

Tendrias que investigar y nos cuentas.

Saludos

[[Caral]]

Hola
A mi me paso lo mismo, pero no lo comente.
Me parece que es lo que dice ecfisa, el control regresa al datetimepicker y se hace el ciclo, por lo menos en el caso del mensaje.
Lo curioso es que no le pase a cloayza, para mi que el delphi 2007 viene con trampa
Saludos

[ecfisa]

Empezado por cloayza

Ahora he probado el codigo y por lo menos en D2007, no parecer comportarce en mala forma.

Tendrias que investigar y nos cuentas.

Saludos

En las pruebas con Trace into nunca sale del evento OnChange. También probé con MessageBox y MessageDlg con el mismo resultado.

La sola llamada a un diálogo modal lo provoca:

Código Delphi [-]
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  MessageBox(Handle,'','',MB_OK); // con este da un lindo efecto cascada ...
end;

Busqué en la web y está reportado como un bug en [ embarcadero ].

Un saludo.