Estoy intentando sacar el ultimo día del mes en curso desde un datetimepicker.
var
dia, mes, anio : Word;
fecha_actual, fecha : TDateTime;
begin
fecha_actual := Now;
DecodeDate(fecha_actual,anio,mes,dia);
fecha := EncodeDate(anio,mes,31);
DateTimePicker.DateTime := fecha;
end;
El problema es cuando estoy en un mes cuyo días son 28 o 30 o en un año bisiesto me aparece este mensaje "invalid argument to date encode".