Tarih Farkı Hesaplama

[OZCANK]

Arkadaşlar Merhaba; Günün tarihinden 1 yıl sonrasını bularak geriye doğru eksiltmek istiyorum. Ekteki kod ile 1 yıl sonrasını buldum ama günün tarihinden 365 den geriye doğru hesap yaptıramadım. Yardımcı olabilir misiniz?

Yapmak istediğim, İlk Yılı sıfır geçip sonraki yılı hesaplatmak.
16-11-2021 ile 16-11-2022 arası Sıfır sonraki yıl 16-11-2023 hesaplama yapacak.
 
D7 kullanıyorum.

procedure TForm1.Button2Click(Sender: TObject);
Var
Tarih, Tarih1, Tarih2 : Tdate;
Sonuc : Double;
LEM : Real;
begin
LEM:=StrToInt(ME1.Text) + StrToInt(ME6.Text);
Tarih := DateTimePicker1.Date + 365;
DateTimePicker2.Date:= Tarih;
Tarih1 := Date;
Tarih2 := DateTimePicker2.Date;
Sonuc := (Tarih2 - Tarih1);
Edit14.Text := FloatToStr(Sonuc);
If Date = DateTimePicker2.Date Then
Begin
Label20.Caption:='LEM Süresi Sona Erdi';
ME5.Text := FloatToStr(LEM * 10 / 100);
end
Else
Edit14.Text:='0';
end;

[ihalilcoban]

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.

[OZCANK]

(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

[RAD Coder]

(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

Kendi projenizde bir sorun var. 
Unit1'de nokta (.) veya noktalı virgül ( ; ) simgesi yanlış bir yere koyulmuştur.

[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.

[OZCANK]

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

(16-11-2021, Saat: 16:02)OZCANK Adlı Kullanıcıdan Alıntı: 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.

[Error] Unit1.pas(1059): Undeclared identifier: 'IncYear' Bu hatayı veriyor.

[ihalilcoban]

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

(16-11-2021, Saat: 16:51)ihalilcoban Adlı Kullanıcıdan Alıntı: 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.

[Error] Unit1.pas(1059): Undeclared identifier: 'IncYear' Bu hatayı veriyor.

Uses'e dateutils eklediniz mi?

[OZCANK]

(16-11-2021, Saat: 17:01)ihalilcoban Adlı Kullanıcıdan Alıntı:

(16-11-2021, Saat: 16:59)OZCANK Adlı Kullanıcıdan Alıntı: [Error] Unit1.pas(1059): Undeclared identifier: 'IncYear' Bu hatayı veriyor.

Uses'e dateutils eklediniz mi?

Haklısın atlamışım.

[OZCANK]

Günün tarihinden geriye doğru nasıl hesaplayabilirim?

[cinarbil]

(17-11-2021, Saat: 13:46)OZCANK Adlı Kullanıcıdan Alıntı: Günün tarihinden geriye doğru nasıl hesaplayabilirim?

Tamamen ücretsiz içinde demosu var.

İster tarih saydırın.
İster terminal sayısı kontrol edin.
İsterseniz programa koruma ekleyin
Açık kaynak kod
Ücretsiz.
Önerilir.

https://github.com/TurboPack/OnGuard-VCL