TDateTime/fi

 function Now : TDateTime;

  function DaysBetween ( const ToDate, FromDate : TDateTime ) : Integer;

  function WeeksBetween( const ToDate, FromDate : TDateTime ):Integer;

program DateProject1;

uses
  SysUtils,DateUtils;
const
  DateFormatChars = 'dd"/"mm"/"yyyy';
var
  DateTime1, DateTime2: TDateTime;
begin
  DateTime1 := now;
  DateTime2 := DateTime1 + 4*7;       //28 päivää myöhemmin
  WriteLn('Tämänhetkinen päivämäärä on '+ FormatDateTime( DateFormatChars, DateTime1 ));
  WriteLn('28 päivää myöhemmin päivämäärä on '+ FormatDateTime( DateFormatChars, DateTime2 ));
  WriteLn('Päivien lukumäärä on '+ ( DaysBetween( DateTime1 ,DateTime2)).ToString );
  WriteLn('Viikkojen määrä on '+ ( WeeksBetween( DateTime1 ,DateTime2)).ToString );
  ReadLn;
end.

  function EncodeDate ( const Year, Month, Day : Word ) : TDateTime;

program CompareTwoDateTime;

uses
  SysUtils, DateUtils;
var
   firstDate, secondDate: TDateTime;
begin
  firstDate := EncodeDate(2000, 2, 29);
  secondDate := EncodeDate(2018, 8, 11);
  if DaysBetween( firstDate, secondDate) = 0
    then WriteLn('Molemmat päivät ovat samat')
    else
      if firstDate < secondDate
        then WriteLn('Ensimmäinen päivämäärä on aikaisempi')
        else WriteLn('Ensimmäinen päivämäärä on myöhemmin');
  ReadLn;
end.