Delphi Source Code - How to get the difference between 2 dates

Code Category

ActiveX Components Database Files Forms Graphic Internet/Lan Math Miscellaneous Multimedia Printing Strings System Information Windows

Delphi source code for Math >> Get the difference between 2 dates

Category: Math
Title: Get the difference between 2 dates
Date added: 15.03.2006
Hits: 15966

procedure TForm1.Button1Click(Sender: TObject);
var
  date1, date2: TDateTime;
  difference: Integer;
begin
  date1 := EncodeDate(2006, 01, 15);
  date2 := EncodeDate(2000, 01, 01);
  difference := trunc(date1) - trunc(date2);
  ShowMessage(IntToStr(difference));
end;

Related Delphi Source Code:

1. How to determine the circum-center of a 2D triangle? (9061 Hits)

2. How to determine The circumcenter of 3 points? (10745 Hits)

3. How to convert Hex codes to Integer? (24729 Hits)

4. How to round numbers to a predetermined number of decimals? (17763 Hits)

5. How to convert an octal number to integer? (9559 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.