DATETIMEPICKER funciones utiles

uses // esto hay que meterlo en el uses
dateutils


//********************** numero del mes de un datetimepicker
monthof(datetimepicker1.date);

showmessage(IntToStr(Integer(monthof(datetimepicker1.date))));




//********************** numero del año de un datetimepicker
yearof(datetimepicker1.date);

showmessage(IntToStr(Integer(yearof(datetimepicker1.date))));





//********************** numero del dia de un datetimepicker
dayof(datetimepicker1.date);

showmessage(IntToStr(Integer(dayof(datetimepicker1.date))));



//################################################################################
inicializar un datetimepicker al dia 1 del mes

procedure TForm1.Button1Click(Sender: TObject);
var
mes, dia, ano :word;

begin
decodedate(datetimepicker1.date, ano, mes, dia);
datetimepicker1.date := encodeDate(ano,mes,1);

end;


// inicializarlo al ultimo dia del mes

procedure TForm1.Button1Click(Sender: TObject);
var
mes, dia, ano :Word;
begin
decodedate(datetimepicker1.date , ano, mes, dia);
datetimepicker1.date := encodeDate(ano, mes, DaysInAMonth(ano, mes));
end;



//###############################################################################
con dos datetimepicker poner 1 a dia 1 de un mes y el otro a ultimo dia de ese mes

DateTimePicker1.Date:=Now-DayOf(now)+1;
DateTimePicker2.Date:=Now+(DaysInMonth(now)-DayOf(now));