Question

How to calculate the date six months from the current date in Pascal

Answer 1

program FutureDateCalculator;
uses SysUtils, DateUtils;

function CalculateFutureDate(MonthsToAdd: Integer): TDateTime;
begin
  CalculateFutureDate := IncMonth(Now, MonthsToAdd);
end;

var 
  futureDate: TDateTime;

begin
  // Calculate future date
  futureDate := CalculateFutureDate(6);

  // Print the new date
  WriteLn('Date six months from now: ', FormatDateTime('yyyy-mm-dd', futureDate));
end.
 
 
 
(*
run:
 
Date six months from now: 2025-12-11
 
*)

 

70+ SQL courses for beginners and professionals