Question

How to check if date1 is before date2 in Pascal

Answer 1

program CompareDates;

uses
  SysUtils, DateUtils;

var
  Date1, Date2: TDateTime;
begin
  Date1 := EncodeDate(2025, 6, 1); // June 1, 2025
  Date2 := EncodeDate(2025, 6, 9); // June 9, 2025

  // Compare the dates
  if CompareDate(Date1, Date2) = -1 then
    WriteLn('Date1 is before Date2')
  else
    WriteLn('Date1 is not before Date2');
end.


   
     
(*
run:

Date1 is before Date2
     
*)

 

70+ SQL courses for beginners and professionals