IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - Ayın son gününü bulma (https://www.ircforumlari.net/delphi/688273-ayin-son-gununu-bulma.html)

Kaf_Dağı

11 Mart 2015 13:29

Ayın son gününü bulma

Ayın son gününü bulma

Kod:

function LastDayCurrMon: 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(LastDayCurrMon));

end;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:16.