Forumunuz.Com - Ayın songününü bulma

Forumunuz.Com (https://www.forumunuz.com/)

- Webmaster Forum (https://www.forumunuz.com/webmaster-forum/)

- - Ayın songününü bulma (https://www.forumunuz.com/webmaster-forum/17377-ayin-songununu-bulma.html)

Kaf Dağı

27 Mart 2015 15:12

Ayın songü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: 04:01.