Extraer Mes y Año del componenete JvDatePickerEdit

[[BlueSteel]]

Hola a Todos...

estoy en uno de esos dias que no se me ocurre nada... Tengo un componente JvDatePickerEdit, en donde se ingresa la fecha de un contrato... y lo que necesito es pasar a unas variables el mes y el año pero de formas independientes, esto es para realizar filtros en una tabla.

Alguien sabe como se hace esto...

Salu2

[ecfisa]

Hola BlueSteel.

No conozco el componente JvDatePickerEdit, pero si tiene la propiedad Date como el DateTimePicker, podrías hacer por ejemplo:

Código Delphi [-]
uses DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  aa,mm,dd: Integer;
begin
  with DateTimePicker1 do
  begin
    aa:= YearOf(Date);    // año
    mm:= MonthOf(Date);   // mes
    dd:= DayOf(Date);     // dia
  end;
  ShowMessage(Format('%d %d %d',[aa,mm,dd]));
end;

Espero que te sirva.

Saludos.

[ContraVeneno]

Código Delphi [-]
uses DateUtils;  
procedure TForm1.Button1Click(Sender: TObject); 
 var   
   aa,mm,dd: word; 
begin   
 with jvDateTimePicker1 do   begin 
   DecodeDate(Date, aa, mm, dd);
 end;   
 ShowMessage(Format('%d %d %d',[aa,mm,dd])); 
end;

[ecfisa]

Empezado por ContraVeneno

Código Delphi [-]
uses DateUtils;  
procedure TForm1.Button1Click(Sender: TObject); 
 var   
   aa,mm,dd: word; 
begin   
 with jvDateTimePicker1 do   begin 
   DecodeDate(Date, aa, mm, dd);
 end;   
 ShowMessage(Format('%d %d %d',[aa,mm,dd])); 
end;

Mucho más sencillo. Siempre olvido a DecodeDate...

Saludos.

[[BlueSteel]]

Muchas gracias a ambos...

ya esta arreglado

Código Delphi [-]
uses DateUtils; // vFec = TJvDatePickerEdit
     ShowMessage('El año seleccionado fue '+IntToStr(YearOf(vFec.Date))+#13+
                 'El Mes seleccionado fue '+IntToStr(MonthOf(vFec.Date)));

Salu2