Category: Math
Title: Get the last day of the current month
Date added: 15.03.2006
Hits: 3333


function LastDayOfCurrentMonth: TDate;
var
  y, m, d: Word;
begin
  DecodeDate(now, y, m, d);
  m := m + 1;
  if m  12 then
  begin
    y := y + 1;
    m := 1;
  end;
  Result := EncodeDate(y, m, 1) - 1;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(DateToStr(LastDayOfCurrentMonth));
end;

1. How to validate an IBAN? (3746 Hits)

2. How to convert Hex codes to Integer? (9114 Hits)

3. How to know if the Time is AM or PM? (2214 Hits)

4. How to convert a hexadecimal number into a binary number? (7593 Hits)

5. How to convert an octal number to integer? (2968 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.