Category: Math
Title: Decode a TDate type
Date added: 15.03.2006
Hits: 3872


procedure TForm1.Button1Click(Sender: TObject);
const
  Year, Month, Day: Word;
begin
  DecodeDate(Date, Year, Month, Day);
  Label1.Caption := IntToStr(Year);  // 2001
  Label2.Caption := IntToStr(Month); // 12
  Label3.Caption := IntToStr(Day);   // 12
end;

1. How to convert Hex codes to Integer? (4626 Hits)

2. How to convert an Integer to an octal number? (1479 Hits)

3. How to convert a decimal number to roman numerals? (2986 Hits)

4. How to get the number of the day in the year? (1699 Hits)

5. How to round numbers to a predetermined number of decimals? (2200 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.