Foros Club Delphi - Extraer Mes y Año del componenete JvDatePickerEdit

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

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

- - Extraer Mes y Año del componenete JvDatePickerEdit (https://www.clubdelphi.com/foros/showthread.php?t=70389)

BlueSteel

18-10-2010 17:06:42

Extraer Mes y Año del componenete JvDatePickerEdit

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

18-10-2010 17:28:33

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

18-10-2010 18:00:54

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

18-10-2010 18:06:57

Cita:

Empezado por ContraVeneno (Mensaje 379611)

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

Saludos.:)

BlueSteel

18-10-2010 18:10:16

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

La franja horaria es GMT +2. Ahora son las 18:36:36.