Tarih Farkı Hesaplama

[OZCANK]

(17-11-2021, Saat: 15:08)cinarbil Adlı Kullanıcıdan Alıntı:

(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

Delphi7 ye uyumlumu?

[cinarbil]

(17-11-2021, Saat: 15:10)OZCANK Adlı Kullanıcıdan Alıntı:

(17-11-2021, Saat: 15:08)cinarbil Adlı Kullanıcıdan Alıntı: 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

Delphi7 ye uyumlumu?

Evet 8 yıl önce denemiştim    çalışmıştı.

[COMMANDX]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, RzButton, ComCtrls,DATEUTILS, StdCtrls;

type
 TForm1 = class(TForm)            
   DateTimePicker1: TDateTimePicker;
   DateTimePicker2: TDateTimePicker;
   DateTimePicker3: TDateTimePicker;
   DateTimePicker4: TDateTimePicker;
   DateTimePicker5: TDateTimePicker;
   Button1: TButton;
   Button2: TButton;
   procedure Button2Click(Sender: TObject);
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

//-- ARTTIRMA
procedure TForm1.Button2Click(Sender: TObject);
Var YIL: TDate;
AY:TDATE;
GUN:TDATE;
SAAT,DAK:TTIME;
BEGIN
YIL:=DateTimePicker1.Date;
AY:=DateTimePicker2.Date;
GUN:=DateTimePicker3.Date;
SAAT:=DateTimePicker4.TIME;
DAK:=DateTimePicker5.TIME;

YIL:=IncYEAR(YIL,1); // Bir Yıl Sonra
AY:=IncMONTH(AY,1); // Bir AY Sonra
GUN:=IncDAY(GUN,1); // Bir GÜN Sonra
SAAT:=IncHOUR(SAAT,1); // Bir SAAT Sonra
DAK:=IncMINUTE(DAK,1); // Bir DAKİKA Sonra

DateTimePicker1.Date:=YIL;
DateTimePicker2.Date:=AY;
DateTimePicker3.Date:=GUN;
DateTimePicker4.TIME:=SAAT;
DateTimePicker5.TIME:=DAK;

end;

//-- EKSİLTME
procedure TForm1.Button1Click(Sender: TObject);
Var YIL: TDate;
AY:TDATE;
GUN:TDATE;
SAAT,DAK:TTIME;
BEGIN
YIL:=DateTimePicker1.Date;
AY:=DateTimePicker2.Date;
GUN:=DateTimePicker3.Date;
SAAT:=DateTimePicker4.TIME;
DAK:=DateTimePicker5.TIME;

YIL:=IncYEAR(YIL,-1); // Bir Yıl ÖNCE
AY:=IncMONTH(AY,-1); // Bir AY ÖNCE
GUN:=IncDAY(GUN,-1); // Bir GÜN ÖNCE
SAAT:=IncHOUR(SAAT,-1); // Bir SAAT ÖNCE
DAK:=IncMINUTE(DAK,-1); // Bir DAKİKA ÖNCE

DateTimePicker1.Date:=YIL;
DateTimePicker2.Date:=AY;
DateTimePicker3.Date:=GUN;
DateTimePicker4.TIME:=SAAT;
DateTimePicker5.TIME:=DAK;

end; 

end.

Saat ve Dakikanın tutulduğu Datetime Pickerin Object İnspectorda Kind özelliğini dtkDate den dtkTime'ye getirin