"Days Span" Pascal Script Needed for RENAMER tool

// This HoursSpan script reads dates from filenames in format: yyyymmddhhnnss.JPG
// then adds/subtracts N hours from the date and prints the new date in the
// format defined by DateOutputFormat variable. HoursSpan variable defines
// how many hours should be added/subtracted (use minus for subtraction).
 
const
  HoursSpan = -1;   // amount of hours to add or subtract!!
  DateOutputFormat = 'yyyymmddhhnnss';  // output date format!!
  HoursPerDay = 24;  // do not change this!!
 
var
  iYear, iMonth, iDay, iHour, iMin, iSec: Integer;
  Date, Time, DateTime: TDateTime;
 
procedure AddHours(var ADateTime: TDateTime; const ANumberOfHours: Integer);
begin
  ADateTime := ((ADateTime * HoursPerDay) + ANumberOfHours) / HoursPerDay;
end;
 
begin
  // extract date-time variables as integers
  iYear  := StrToIntDef(Copy(FileName, 1, 4), -1);
  iMonth := StrToIntDef(Copy(FileName, 5, 2), -1);
  iDay   := StrToIntDef(Copy(FileName, 7, 2), -1);
  iHour  := StrToIntDef(Copy(FileName, 9, 2), -1);
  iMin   := StrToIntDef(Copy(FileName, 11, 2), -1);
  iSec   := StrToIntDef(Copy(FileName, 13, 2), -1);
 
  // process only if all variables are correctly converted
  if (iYear >= 0) and (iMonth >= 0) and (iDay >= 0) and
     (iHour >= 0) and (iMin >= 0) and (iSec >= 0) then
 
  begin
    // create a new date-time variable
    Date := EncodeDate(iYear, iMonth, iDay);
    Time := EncodeTime(iHour, iMin, iSec, 0);
    DateTime := Date + Time;
 
    // add hours (use minus for subtracting)
    AddHours(DateTime, HoursSpan);
 
    // concatenate the rest of the filename and the new date
    FileName := Copy(FileName, 20, Length(FileName));
    FileName := FormatDateTime(DateOutputFormat, DateTime) + FileName;
  end
 
  // something went wrong
  else FileName := 'INVALID INPUT';
end.