[[AzidRain]]

Muy Simple:

Código Delphi [-]
  Function DiasParaNocheVieja:Integer;
Begin
   Result := DaysBetween(Today,EncodeDate(2007,12,31));
end;