Tarih Farkı Hesaplama

[ihalilcoban]

(16-11-2021, Saat: 16:02)OZCANK Adlı Kullanıcıdan Alıntı:

(16-11-2021, Saat: 15:48)ihalilcoban Adlı Kullanıcıdan Alıntı: Merhaba.

Delphi de IncYear vb. tarih artırıp azaltma için kullanılan fonksiyonları incelemenizi tavsiye ederim. Yapmak istediğiniz sanırım sayaç gibi bir şey. Bu kadar kod karmaşası yerine bir kaç satırda da iş çözülür diye düşünüyorum.

Örnek : http://www.delphibasics.co.uk/RTL.asp?Name=IncYear

İyi çalışmalar.

Kardeşim teşekkür ederim. Function da hata var sanırım çözemedim

function IncYear ( const StartDate : TDateTime { NumberOfYears : Tamsayı = 1} ) : TDateTime;

[Error] Unit1.pas(1048): ';' expected but '.' found

Fonksiyon zaten delphi de tanımlı ekstradan tanımlamaya gerek yok. 

var
tarih:TDate;
begin
tarih:=Date;
tarih:=incYear(tarih); //Yılı bir artır
Form1.Caption:=DateToStr(tarih);
end;

şeklinde kullanmak yeterli olacaktır.