[NumLock]

Код:

function DiffTime(ANow: String; ATime: String): String;
var
  diff: TDateTime;
begin
  diff:=StrToDateTime(ATime)-StrToDateTime(ANow);
  Result:=Format('%.0f дн.', [diff]);
end;

кста, до нового года осталось 256 дней