How to calculate the number of days between dates using pascal?

1
2
3
4
5
6
7
8

from datetime import datetime, timedelta

date1 = datetime(2022, 1, 1)
date2 = datetime(2022, 12, 31)

difference = date2 - date1

print("Number of days: ", difference.days)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

program CalculateDaysBetweenDates;
uses SysUtils;

var
   date1, date2: TDateTime;
   days: Integer;

begin
   { encode the dates }
   date1 := EncodeDate(2022, 1, 1);
   date2 := EncodeDate(2022, 12, 31);
   
   { calculate the number of days }
   days := Abs(Trunc(date2) - Trunc(date1));
   
   { print the result }
   writeln('Number of days: ', days);
end.