Funciones con Date

[[Lepe]]

la función RecodeDate (creo que de la unidad DateUtils) puede servirte.

El hecho es que esas dos fechas concretas siempre existen y no han variado en 2000 años (chiste fácil ya... ). Solo tendrás que recodificar el año de una fecha determinada, e inyectar el dia y mes como unas constantes.

Código Delphi [-]
function LastDayOfYear(const Value:TDateTime):TDateTime
begin
  Result := RecodeDateTime(Value, Yearof(Value), 12,31, 0, 0, 0 ,0);
end;

Saludos