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:p:D

[ecfisa]

Hola BlueSteel.

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


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]

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]

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

Saludos.:)

[BlueSteel]

Muchas gracias a ambos...

ya esta arreglado


uses DateUtils; // vFec = TJvDatePickerEdit
ShowMessage('El año seleccionado fue '+IntToStr(YearOf(vFec.Date))+#13+
'El Mes seleccionado fue '+IntToStr(MonthOf(vFec.Date)));


Salu2:p:D